blib/lib/Catalyst/Helper.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 35 | 8.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
39 | 3 | 0 | 0 | -d 'inc/.author' and -f 'lib/Catalyst/Helper.pm' |
255 | 0 | 3 | 0 | -e $file and -s _ |
line | l | !l | condition |
---|---|---|---|
116 | 0 | 0 | $ENV{'AUTHOR'} || eval { do { @{[getpwuid $<];}[6] } } || 'Catalyst developer' |
150 | 0 | 0 | $ENV{'AUTHOR'} || eval { do { @{[getpwuid $<];}[6] } } || 'A clever guy' |
170 | 0 | 0 | shift() || 'Missing name for model/view/controller' |
319 | 3 | 0 | $vars ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
95 | 0 | 0 | 0 | $name =~ /[^\w:]/ or $name =~ /^\d/ |
0 | 0 | 0 | $name =~ /[^\w:]/ or $name =~ /^\d/ or $name =~ /\b:\b|:{3,}/ | |
116 | 0 | 0 | 0 | $self->{'author'} ||= $ENV{'AUTHOR'} || eval { do { @{[getpwuid $<];}[6] } } || 'Catalyst developer' |
121 | 0 | 0 | 0 | $self->{'scripts'} || $self->{'makefile'} |
152 | 0 | 0 | 0 | $self->{'base'} ||= dir($FindBin::Bin, '..') |
260 | 0 | 0 | 0 | $self->{'.newfiles'} or $self->{'scripts'} |
0 | 0 | 0 | $self->{'.newfiles'} or $self->{'scripts'} or $self->{'makefile'} |