1 package C4::Labels::Profile;
6 use base qw(C4::Creators::Profile);
8 use autouse 'Data::Dumper' => qw(Dumper);
11 use version; our $VERSION = qv('1.0.0_1');
14 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
19 push @_, "creator", $me;
20 return $self->SUPER::new(@_);
25 push @_, "creator", $me;
26 return $self->SUPER::save(@_);
31 push @_, "creator", $me;
32 return $self->SUPER::retrieve(@_);
37 my $self = shift; # check to see if this is a method call
38 push @_, "creator", $me;
39 return $self->SUPER::delete(@_);
42 push @_, "creator", $me;
43 return __PACKAGE__->SUPER::delete(@_); # XXX: is this too hackish?