Moose subclassing for Asset/*.pm.

This commit is contained in:
Colin Kuskie 2010-04-09 10:30:54 -07:00
parent 0c003083a0
commit c35f3b9ffb
6 changed files with 65 additions and 73 deletions

View file

@ -172,11 +172,11 @@ Returns a toolbar with a set of icons that hyperlink to functions that delete, e
=cut
sub getToolbar {
override getToolbar => sub {
my $self = shift;
return undef if ($self->getToolbarState);
return '<p>'.$self->SUPER::getToolbar().'</p>';
}
return '<p>'.super().'</p>';
};
#-------------------------------------------------------------------