1 package C4
::Labels
::Profile
;
6 use base
qw(C4::Creators::Profile);
8 use autouse
'Data::Dumper' => qw(Dumper);
13 __PACKAGE__
=~ m/^C4::(.+)::.+$/;
18 push @_, "creator", $me;
19 return $self->SUPER::new
(@_);
24 push @_, "creator", $me;
25 return $self->SUPER::save
(@_);
30 push @_, "creator", $me;
31 return $self->SUPER::retrieve
(@_);
36 my $self = shift; # check to see if this is a method call
37 push @_, "creator", $me;
38 return $self->SUPER::delete(@_);
41 push @_, "creator", $me;
42 return __PACKAGE__
->SUPER::delete(@_); # XXX: is this too hackish?