1 package C4::Patroncards::Profile;
6 use base qw(C4::Creators::Profile);
8 use autouse 'Data::Dumper' => qw(Dumper);
11 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
16 push @_, "creator", $me;
17 return $self->SUPER::new(@_);
22 push @_, "creator", $me;
23 return $self->SUPER::save(@_);
28 push @_, "creator", $me;
29 return $self->SUPER::retrieve(@_);
34 my $self = shift; # check to see if this is a method call
35 push @_, "creator", $me;
36 return $self->SUPER::delete(@_);
39 push @_, "creator", $me;
40 return __PACKAGE__->SUPER::delete(@_); # XXX: is this too hackish?