| line |
true |
false |
branch |
|
62
|
0 |
2 |
ref $_[0] ? : |
|
63
|
1 |
1 |
unless @_ |
|
69
|
0 |
1 |
unless ("PPI::Document"->set_cache($cache)) |
|
118
|
0 |
2 |
unless my $path = $params{'path'} |
|
119
|
0 |
2 |
unless (-d $path) |
|
122
|
0 |
2 |
unless (-r $path and -x $path) |
|
125
|
0 |
2 |
unless ($params{'readonly'} or -w $path) |
|
177
|
5 |
0 |
ref $_[0] ? : |
|
180
|
0 |
5 |
unless my $md5hex = $self->_md5hex(shift()) |
|
199
|
0 |
2 |
unless my $Document = &_INSTANCE(shift(), "PPI::Document") |
|
202
|
0 |
2 |
if $self->readonly |
|
205
|
0 |
2 |
unless my $md5hex = $Document->hex_id |
|
225
|
3 |
0 |
unless -d $dir |
|
240
|
1 |
5 |
unless -f $file |
|
246
|
0 |
5 |
unless (&_INSTANCE($object, "PPI::Document")) |
|
266
|
6 |
3 |
&_SCALAR($_[0]) ? : |
|
268
|
9 |
0 |
defined $it && !ref($it) && $it =~ /^[[:xdigit:]]{32}\z/s ? : |