Lines 57-63
sub get {
Link Here
|
57 |
my ( $class, $params ) = @_; |
57 |
my ( $class, $params ) = @_; |
58 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
58 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
59 |
my $category = $params ? ( $params->{category} || caller ) : caller; |
59 |
my $category = $params ? ( $params->{category} || caller ) : caller; |
60 |
my $l4pcat = $interface . '.' . $category; |
60 |
my $l4pcat = ( C4::Context->psgi_env ? 'plack-' : q{} ) . $interface . '.' . $category; |
61 |
|
61 |
|
62 |
my $init = _init(); |
62 |
my $init = _init(); |
63 |
my $self = {}; |
63 |
my $self = {}; |
64 |
- |
|
|