blib/lib/IO/Detect.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 24 | 49 | 48.9 |
line | l | !l | condition | |
---|---|---|---|---|
100 | 2 | 0 | 4 | $reftype eq 'GLOB' and *{$fh;}{'IO'} |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
113 | 6 | 0 | 0 | &blessed($fh) and $fh->DOES('IO::Handle') |
114 | 6 | 0 | 0 | &blessed($fh) and $fh->DOES('FileHandle') |
115 | 2 | 0 | 0 | &blessed($fh) and $fh->DOES('IO::All') |
128 | 4 | 0 | 0 | &blessed($f) and $f->DOES('IO::All') |
129 | 4 | 0 | 0 | &blessed($f) and $f->DOES('Path::Class::Entity') |
130 | 0 | 0 | 0 | length "$f" && &_oneline("$f") |
4 | 0 | 0 | &blessed($f) and overload::Method($f, '""') | |
132 | 1 | 1 | 0 | length $f && &_oneline($f) |
1 | 1 | 2 | defined $f and not ref $f | |
140 | 3 | 0 | 0 | &blessed($f) and $f->DOES('URI::file') |
141 | 3 | 0 | 0 | &blessed($f) and $f->DOES('RDF::Trine::Node::Resource') |
194 | 27 | 0 | 2 | &blessed($proto) and $proto->isa('IO::Detect::SmartMatcher') |
line | l | !l | condition |
---|---|---|---|
48 | 3 | 8 | $_[0]{'exporter'} ||= sub { my $into = $_[0]{'into'}; my($name, $sym) = @{$_[1];}; foreach $_ (grep ref($_), $into->can($name)) { _croak("Refusing to overwrite local sub '${name}' with export from $class") if B::svref_2object($_)->STASH->NAME eq $into; }; 'namespace::clean'->import(-'cleanee', $_[0]{'into'}, $name); BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x15\x55\x55\x55\x15\x55\x55\x55\x55\x55\x55\x55\x55\x15"} no strict 'refs'; *{"${into}::$name";} = $sym; } |
149 | 1 | 9 | $arg->{'mode'} || '<' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
100 | 4 | 0 | 2 | $reftype eq 'IO' or $reftype eq 'GLOB' and *{$fh;}{'IO'} |
159 | 0 | 1 | 0 | shift() || $default_mode |