File Coverage

lib/CatalystX/Eta/Controller/AutoBase.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 2 2 100.0
pod n/a
total 15 18 83.3


line stmt bran cond sub pod time code
1             package CatalystX::Eta::Controller::AutoBase;
2              
3 2     2   1208 use Moose::Role;
  2         4  
  2         14  
4              
5             requires 'base';
6              
7             around base => \&AutoBase_around_base;
8              
9             sub AutoBase_around_base {
10 13     13   1291069 my $orig = shift;
11 13         31 my $self = shift;
12              
13 13         24 my ($c) = @_;
14 13         78 $self->$orig(@_);
15              
16 13         111 my $config = $self->config;
17              
18 13         1449 $c->stash->{collection} = $c->model( $self->config->{result} );
19              
20 13 50 33     8219 if ( exists $config->{result_cond} || exists $config->{result_attr} ) {
21              
22 13         55 $c->stash->{collection} = $c->stash->{collection}->search( $config->{result_cond}, $config->{result_attr} );
23              
24             }
25             }
26              
27             1;
28