oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Moose overrides in Event, File, Post

Browse source
This commit is contained in:
Colin Kuskie 2010-04-09 10:16:59 -07:00
parent b6b5e6c939
commit 0c003083a0
3 changed files with 25 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Asset/Post.pm
View file

@ -321,11 +321,11 @@ Extend the base method to delete the locally cached thread object.
=cut
sub DESTROY {
override DESTROY => sub {
my $self = shift;
$self->{_thread}->DESTROY if (exists $self->{_thread} && ref $self->{_thread} =~ /Thread/);
$self->SUPER::DESTROY;
}
super();
};
#-------------------------------------------------------------------
@ -336,12 +336,12 @@ Extend the base class to handle storage locations.
=cut
sub exportAssetData {
override exportAssetData => sub {
my $self = shift;
my $data = $self->SUPER::exportAssetData;
my $data = super();
push(@{$data->{storage}}, $self->storageId) if ($self->storageId ne "");
return $data;
}
};
#-------------------------------------------------------------------