Branch Coverage

blib/lib/Module/Generic.pm
Criterion Covered Total %
branch 500 1778 28.1


line true false branch
104 0 6 if (defined $path)
115 0 0 if ($@)
125 0 0 if ($@)
127 0 0 unless $SILENT_AUTOLOAD
141 0 132 if (defined ${"${class}::OBJECT_PERMS";})
153 0 132 if ($MOD_PERL)
167 0 132 if (defined ${"${class}::LOG_DEBUG";})
181 0 0 if scalar @_ == 1 and ref $_[0] eq 'HASH'
191 0 0 if substr($meth, 0, 1) eq '_'
193 0 0 if ($@)
201 0 0 if ($p->{'json'} and ref $rv eq 'JSON::PP::Boolean' || ref $rv eq 'Module::Generic::Boolean') { }
0 0 elsif ($self->_is_object($rv)) { }
209 0 0 if ($rv->can('as_hash') and overload::Overloaded($rv) and overload::Method($rv, '""')) { }
0 0 elsif ($rv->can('as_hash')) { }
222 0 0 if (ref $rv eq 'HASH') { }
0 0 elsif (ref $rv eq 'ARRAY') { }
0 0 elsif (not ref $rv) { }
0 0 elsif (length "$rv") { }
224 0 0 if scalar keys %$rv
232 0 0 $self->_is_object($this_ref) && $this_ref->can('as_hash') ? :
235 0 0 if scalar @$arr
239 0 0 if length $rv
267 0 0 if (&Scalar::Util::reftype($self) eq 'HASH') { }
0 0 elsif (&Scalar::Util::reftype($self) eq 'ARRAY') { }
300 0 0 if ($colour =~ /^[A-Z]+([A-Z\s]+)*$/) { }
0 0 elsif ($colour =~ /^\d{9}$/) { }
0 0 elsif ($colour =~ /^[A-F0-9]+$/) { }
302 0 0 unless (scalar keys %$COLOUR_NAME_TO_RGB)
308 0 0 if /^[[:blank:]]*$/
309 0 0 if /^\=/
315 0 0 if (exists $$COLOUR_NAME_TO_RGB{lc $colour})
361 0 0 if ($red == $r or $red < $r and $red > int $r / 2 or $red > $r and $red < int $r_p / 2 and $r_p or $red > $r)
369 0 0 if ($red_ok)
371 0 0 if ($green == $g or $green < $g and $green > int $g / 2 or $green > $g and $green < int $g_p / 2 and $g_p or $green > $g)
380 0 0 if ($blue_ok)
382 0 0 if ($blue == $b or $blue < $b and $blue > int $b / 2 or $blue > $b and $blue < int $b_p / 2 and $b_p or $blue > $b)
400 0 12 unless $self->_is_hash($opts)
403 0 12 if length $opts->{'message'} and not length $opts->{'text'}
404 0 12 unless length $opts->{'text'}
458 1 0 if (ref $bg eq 'HASH')
477 17 1 if ($col =~ /^(?:(?<light>bright|light)[[:blank:]\_]+)? (?<colour> (?:[a-zA-Z]+)(?:[[:blank:]]+\w+)? | (?<rgb_type>rgb[a]?)\([[:blank:]]*(?<red>\d{1,3})[[:blank:]]*\,[[:blank:]]*(?<green>\d{1,3})[[:blank:]]*\,[[:blank:]]*(?<blue>\d{1,3}) (?:[[:blank:]]*\,[[:blank:]]*(?<opacity>\d(?:\.\d+)?))?[[:blank:]]* \) )$/xi) { }
0 1 elsif ($col =~ /^(?<rgb_type>rgb[a]?)\([[:blank:]]*(?<red>\d{1,3})[[:blank:]]*\,[[:blank:]]*(?<green>\d{1,3})[[:blank:]]*\,[[:blank:]]*(?<blue>\d{1,3})[[:blank:]]*(?:\,[[:blank:]]*(?<opacity>\d(?:\.\d+)?))?[[:blank:]]*\)$/i) { }
489 3 14 if (length $+{'rgb_type'} and length $+{'red'} and length $+{'green'} and length $+{'blue'}) { }
494 1 2 if ($+{'opacity'} or $light) { }
498 0 0 $light ? :
1 0 length $+{'opacity'} ? :
515 0 0 if ($+{'opacity'}) { }
530 3 15 if ($col =~ /^rgb[a]?\((?<red>\d{3})(?<green>\d{3})(?<blue>\d{3})\)$/i) { }
1 14 elsif ($col =~ /^rgba\((?<red>\d{3})(?<green>\d{3})(?<blue>\d{3})[[:blank:]]*\,[[:blank:]]*(?<opacity>\d(?:\.\d)?)\)$/i) { }
13 1 elsif ($self->message(9, "Checking if rgb value exists for colour '${col}'") and $col_ref = $self->colour_to_rgb($col)) { }
546 1 0 if ($+{'opacity'})
551 1 0 if ($opts->{'bgcolour'})
594 0 0 if ($opts->{'colour'} or $opts->{'color'} or $opts->{'fgcolour'} or $opts->{'fgcolor'} or $opts->{'fg_colour'} or $opts->{'fg_color'})
599 11 1 if (scalar keys %$col_ref) { }
610 0 6 if ($opts->{'bgcolour'} or $opts->{'bgcolor'} or $opts->{'bg_colour'} or $opts->{'bg_color'})
615 6 0 if (scalar keys %$col_ref) { }
626 11 1 if ($opts->{'style'})
634 12 0 if (exists $$styles{lc $s})
639 12 0 if scalar @$params8
643 11 1 if scalar @$params8
644 11 1 if scalar @$params
647 1 11 if (scalar @$params and $opts->{'text'} =~ /\n+/) { }
655 0 2 unless length $text_parts->[$i]
664 10 1 if scalar @$params
701 20 194 if ($c eq $open) { }
147 47 elsif (scalar keys %$def) { }
704 9 11 if (substr($$chunk, $i, 3) eq "$open/$close") { }
2 9 elsif (scalar keys %$def) { }
708 9 0 length $def->{'text'} ? :
711 2 7 if ($opts->{'is_child'}) { }
719 7 0 if length $res
741 256 9 unless substr($$chunk, $j, 1) eq $close
745 5 4 if ($this_def =~ /^\Q$open\E[[:blank:]]*(?:(?<style1>$style_re)[[:blank:]]+)?(?<fg_colour>$colour_re)(?:[[:blank:]]+(?<style2>$style_re))?(?:[[:blank:]]+on[[:blank:]]+(?<bg_colour>$colour_re))?[[:blank:]]*\Q$close\E$/i) { }
762 0 4 if ($@ or ref $def ne 'HASH') { }
771 9 0 unless ($err)
777 0 9 unless (length $this_def)
800 0 5 $opts->{'is_child'} ? :
812 15 0 if ($colour =~ /^[A-Za-z]+([\w\-]+)*([[:blank:]]+\w+)?$/) { }
0 0 elsif ($colour =~ /^\d{9}$/) { }
0 0 elsif ($colour =~ /^[A-F0-9]+$/) { }
815 1 14 unless (scalar keys %$COLOUR_NAME_TO_RGB)
820 0 1 if ($@)
825 14 1 if (exists $COLOUR_NAME_TO_RGB->{$colour}) { }
871 3 0 if ($pref =~ /^(?:(?<style1>$style_re)[[:blank:]]+)?(?<fg_colour>$colour_re)(?:[[:blank:]]+(?<style2>$style_re))?(?:[[:blank:]]+on[[:blank:]]+(?<bg_colour>$colour_re))?$/i) { }
891 69 0 if (@_)
895 0 69 if $OPTIMIZE_MESG_SUB
896 1 68 if ($this->{'debug'} and not $this->{'debug_level'})
914 0 0 if scalar @_ > 1 and ref $_[-1] eq 'HASH'
919 0 0 if length $opts->{'depth'}
932 0 0 if scalar @_ > 1 and ref $_[-1] eq 'HASH'
934 0 0 if (scalar keys %$opts) { }
968 0 0 if (ref $data) { }
987 0 0 if (@_)
989 0 0 if $_[0] =~ /^\-?\d+$/
990 0 0 if @_
1000 1 0 if (@_)
1003 0 1 if (&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')) { }
0 1 elsif (ref $_[0] eq 'HASH') { }
1013 0 1 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1015 0 1 if $this->{'error_max_length'} > 0 and length $args->{'message'} > $this->{'error_max_length'}
1036 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
1039 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 1 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
1041 0 1 if ($no_use_warnings)
1047 0 0 unless ($call_offset > 0 and $call_data[0] ne $class and (caller $call_offset - 1)[0] eq $class)
1053 0 0 if $call_data[9] or $call_offset > 0 and (caller $call_offset - 1)[0] ne $class
1064 0 1 if $MOD_PERL
1066 0 1 if $r
1068 0 1 if ($err_handler and ref $err_handler eq 'CODE') { }
0 1 elsif ($r) { }
0 1 elsif ($this->{'fatal'}) { }
1 0 elsif (not exists $this->{'quiet'} && $this->{'quiet'}) { }
1076 0 0 if (my $log_handler = $r->get_handlers('PerlPrivateErrorHandler')) { }
1084 0 0 if $should_display_warning
1092 0 0 $@ ? :
1097 0 1 if ($r) { }
1099 0 0 if $should_display_warning
1104 0 0 $@ ? :
0 1 if $should_display_warning
1117 0 1 if (not $args->{'no_return_null_object'} and want('OBJECT'))
1124 0 0 ref $self ? :
1135 0 0 $this->{'_data_repo'} ? :
1137 0 0 wantarray ? :
1145 262 0 unless length $this->{'verbose'}
1146 129 133 unless length $this->{'debug'}
1147 262 0 unless defined $this->{'version'}
1156 0 262 if ($this->{'_data_repo'})
1158 0 0 unless $$this{$this->{'_data_repo'}}
1161 0 262 if @_ == 1 and not defined $_[0]
1162 70 192 if (@_)
1166 68 2 if (ref $args[0] eq 'HASH' or &Scalar::Util::blessed($args[0]) and $args[0]->isa('Module::Generic::Hash')) { }
0 2 elsif (ref $args[0] eq 'ARRAY') { }
0 2 elsif (scalar @args == 1 and not defined $args[0]) { }
0 2 elsif (scalar(@args) % 2) { }
1198 70 1816 if ($vals->[$i] eq 'debug')
1212 941 0 if (defined $meth) { }
0 0 elsif ($this->{'_init_strict_use_sub'}) { }
0 0 elsif (exists $data->{$name}) { }
1234 0 0 if (index($data->{$name}, '::') != -1 || $data->{$name} =~ /^[a-zA-Z][a-zA-Z\_]*[a-zA-Z]$/ and $self->_is_class_loaded($data->{$name})) { }
0 0 elsif ($this->{'_init_strict'}) { }
1238 0 0 if (not &Scalar::Util::blessed($val)) { }
0 0 elsif (not $val->isa($thisPack)) { }
1249 0 0 if (ref $data->{$name} eq 'ARRAY') { }
0 0 elsif (ref $data->{$name} eq 'HASH') { }
0 0 elsif (ref $data->{$name} eq 'SCALAR') { }
1251 0 0 if &Scalar::Util::reftype($val) ne 'ARRAY'
1255 0 0 if &Scalar::Util::reftype($val) ne 'HASH'
1259 0 0 if &Scalar::Util::reftype($val) ne 'SCALAR'
1267 0 0 if $this->{'_init_strict'}
1273 0 0 if ($OPTIMIZE_MESG_SUB and not $this->{'verbose'} and not $this->{'debug'})
1275 0 0 if (defined &{"${pkg}::message";})
1277 0 0 unless defined &{"${pkg}::message_off";}
1311 0 218 if $MOD_PERL
1312 218 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1319 218 0 unless $ref
1322 0 0 if ref $ref->[-1] eq 'HASH'
1330 0 0 unless $stackFrame =~ /^\d+$/
1331 0 0 if $stackFrame
1332 0 0 if (caller 1)[3] eq 'Module::Generic::messagef' or (caller 1)[3] eq 'Module::Generic::message_colour'
1334 0 0 if (caller 2)[3] eq 'Module::Generic::messagef_colour'
1338 0 0 if (ref $this->{'_message_frame'} eq 'HASH')
1340 0 0 if (exists $this->{'_message_frame'}{$sub2})
1343 0 0 if ($frameNo > 0)
1351 0 0 if ($sub2 eq 'message')
1360 0 0 if ($opts->{'message'}) { }
1362 0 0 if (ref $opts->{'message'} eq 'ARRAY') { }
1364 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1373 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1391 0 0 exists $opts->{'level'} ? :
0 0 $_[0] =~ /^\d+$/ ? :
1393 0 0 if $opts->{'type'}
1399 0 0 if ($r and not ${"${class}::LOG_DEBUG";}) { }
0 0 elsif ($MOD_PERL and not ${"${class}::LOG_DEBUG";}) { }
0 0 elsif (not -t STDIN and $this->{'_log_handler'} and ref $this->{'_log_handler'} eq 'CODE') { }
0 0 elsif (not -t STDIN and ${$class . '::MESSAGE_HANDLER';} and ref ${$class . '::MESSAGE_HANDLER';} eq 'CODE') { }
0 0 elsif ($self->message_log($mesg, "\n")) { }
1402 0 0 if (my $log_handler = $r->get_handlers('PerlPrivateLogHandler')) { }
1445 0 0 unless $opts->{'no_encoding'}
1460 0 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1462 0 0 $_[0] =~ /^\d+$/ ? :
1464 0 0 if (scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'})
1469 0 0 if not defined $level and exists $opts->{'level'}
1471 0 0 if ($opts->{'message'}) { }
1473 0 0 if (ref $opts->{'message'} eq 'ARRAY') { }
1475 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1484 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1488 0 0 if defined $level
1500 0 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1502 0 0 $_[0] =~ /^\d+$/ ? :
1504 0 0 if (scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'} || exists $_[-1]{'colour'})
1508 0 0 if not defined $level and exists $opts->{'level'}
1510 0 0 if ($opts->{'message'}) { }
1512 0 0 if (ref $opts->{'message'} eq 'ARRAY') { }
1528 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1530 0 0 if $opts->{'colour'}
1533 0 0 if defined $level
1544 0 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1548 0 0 if (scalar @args > 1 and ref $args[-1] eq 'HASH' and exists $args[-1]{'level'} || exists $args[-1]{'type'} || exists $args[-1]{'message'})
1566 218 0 if (@_)
1568 0 218 unless ($_[0] =~ /^\d/)
1571 0 0 if (ref $_[-1] eq 'HASH' and exists $_[-1]{'level'}) { }
0 0 elsif ($this->{'_message_default_level'} =~ /^\d+$/ and $this->{'_message_default_level'} > 0) { }
1588 218 0 if ($_[0] =~ /^\d+$/ || ref $_[-1] eq 'HASH' && exists $_[-1]{'level'} and @_ > 1)
1592 218 0 if ($_[0] =~ /^\d+$/) { }
0 0 elsif (ref $_[-1] eq 'HASH' and exists $_[-1]{'level'}) { }
1601 0 218 if (ref ${"${class}::DEBUG_TARGET";} eq 'ARRAY')
1603 0 0 scalar @${"${class}::DEBUG_TARGET";} ? :
1605 0 218 if ($this->{'debug'} >= $message_level or $this->{'verbose'} >= $message_level or ${$class . '::DEBUG';} >= $message_level or $this->{'debug_level'} >= $message_level or $this->{'debug'} >= 100 or length $target_re and $class =~ /^$target_re$/ and ${$class . '::GLOBAL_DEBUG';} >= $message_level) { }
1628 0 0 unless exists $this->{'_message_frame'}
1630 0 0 if (@_)
1633 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (not @_ % 2) { }
0 0 elsif (scalar @_ == 1) { }
1648 0 0 if index($sub, '::') != -1
1664 0 0 unless $io
1666 0 0 if not &Scalar::Util::openhandle($io) and $io
1682 0 0 if (@_) { }
0 0 elsif (${"${class}::LOG_DEBUG";} and not $self->_set_get('log_io') and ${"${class}::DEB_LOG";}) { }
1692 0 0 unless ($DEBUG_LOG_IO)
1708 0 0 if (@_)
1711 0 0 if ($flag) { }
0 0 elsif (not $flag || $this->{'verbose'} || $this->{'debug'}) { }
1713 0 0 if (defined &{"${pkg}::message_off";}) { }
1726 0 0 unless defined &{"${pkg}::message_off";}
1741 0 0 unless ref $err and &Scalar::Util::blessed($err)
1743 0 0 if (want('OBJECT'))
1758 0 0 if ref $_[-1] eq 'HASH'
1760 0 0 if (@_ == 2)
1765 0 0 unless $opts->{'file'}
1767 0 0 if $opts->{'encoding'}
1769 0 0 ref $opts->{'data'} eq 'SCALAR' ? :
0 0 unless (defined $fh->print(ref $opts->{'data'} eq 'SCALAR' ? ${$$opts{'data'};} : $opts->{'data'}))
1782 0 0 if (@_)
1786 0 0 $this->{'_data_repo'} ? :
1797 0 0 @_ ? :
1808 0 0 if (defined $io) { }
1810 0 0 if substr($_, -3) eq '.pm'
1811 0 0 unless $io->close
1818 0 0 wantarray ? :
1829 0 0 if (@_)
1833 0 0 if $OPTIMIZE_MESG_SUB
1840 0 0 unless @_ >= 2 and @_ <= 3
1843 0 0 if (@_ == 3 and ref $_[1]) { }
1852 0 0 if not ref $obj and index($obj, '::') == -1
1855 0 0 if (&Scalar::Util::blessed($obj) and $ref = $obj->can($meth))
1861 0 0 if (index($meth, '::') != -1)
1866 0 0 if defined &{"${class}::$meth";}
1869 0 0 if defined $ref
1872 0 0 if $level >= 10
1877 0 0 if (@{"${class}::ISA";})
1884 0 0 if defined $ref
1891 0 0 if ($class ne 'Module::Generic' and $meth ne 'EXTRA_AUTOLOAD' and defined &{"${class}::AUTOLOAD";})
1926 0 0 if $@
1928 0 0 if scalar @_ == 1 and not defined $_[0]
1929 0 0 @_ ? :
1930 0 0 if $o->can('debug')
1931 0 0 unless defined $o
1933 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
1936 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
1965 59991 0 if (&Scalar::Util::reftype($self) eq 'HASH') { }
0 0 elsif (&Scalar::Util::reftype($self) eq 'GLOB') { }
0 0 elsif (not ref $self) { }
2003 0 0 unless length $str
2018 0 0 if ($str =~ m[(\d{4})[-|/](\d{1,2})[-|/](\d{1,2})(?:[[:blank:]]+|T)(\d{1,2}:\d{1,2}:\d{1,2})(?:\.\d+)?((?:\+|\-)\d{2,4})?]) { }
0 0 elsif ($str =~ m[(\d{4})[-|/](\d{1,2})[-|/](\d{1,2})(?:[[:blank:]]+|T)(\d{1,2}:\d{1,2}:\d{1,2})]) { }
0 0 elsif ($str =~ m[^(\d{4})[-|/](\d{1,2})[-|/](\d{1,2})$]) { }
2021 0 0 unless (length $zone)
2033 0 0 if length $zone == 3
2076 0 4 $this->{'_data_repo'} ? :
2077 4 0 if (@_)
2079 4 0 @_ == 1 ? :
2082 0 4 if (wantarray) { }
2084 0 0 if (ref $data->{$field} eq 'ARRAY') { }
0 0 elsif (ref $data->{$field} eq 'HASH') { }
2108 0 0 $this->{'_data_repo'} ? :
2109 0 0 if (@_)
2111 0 0 @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
2122 0 0 $this->{'_data_repo'} ? :
2123 0 0 if (@_)
2125 0 0 @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
2128 0 0 if ($o) { }
2130 0 0 unless ($self->_is_object($o))
2143 0 0 unless ($data->{$field} and $self->_is_object($data->{$field}))
2156 0 425 $this->{'_data_repo'} ? :
2157 425 0 if (@_)
2161 0 425 if (&Scalar::Util::blessed($val) and $val->isa('JSON::PP::Boolean') || $val->isa('Module::Generic::Boolean')) { }
0 425 elsif (&Scalar::Util::reftype($val) eq 'SCALAR') { }
0 425 elsif (lc $val eq 'true' or lc $val eq 'false') { }
2168 0 0 $$val ? :
2172 0 0 lc $val eq 'true' ? :
2176 279 146 $val ? :
2182 0 425 if (length $data->{$field} and !&Scalar::Util::blessed($data->{$field}) || &Scalar::Util::blessed($data->{$field}) && !$data->{$field}->isa('Module::Generic::Boolean') && !$data->{$field}->isa('JSON::PP::Boolean'))
2193 0 0 $val ? :
2204 0 0 if ($def->{'_class'}) { }
2216 0 0 unless (Class::Load::is_class_loaded($class))
2250 0 0 $call_sub eq '_set_get_class' ? :
2258 0 0 unless (exists $type2func->{$type})
2264 0 0 if ($type eq 'object' or $type eq 'scalar_or_object' or $type eq 'object_array') { }
0 0 elsif ($type eq 'class' or $type eq 'class_array') { }
2268 0 0 unless ($info->{'class'})
2279 0 0 if (not exists $info->{'definition'}) { }
0 0 elsif (ref $this_def ne 'HASH') { }
2315 0 0 if $@
2334 0 0 $this->{'_data_repo'} ? :
2335 0 0 if scalar @_ == 1 and not defined $_[0]
2336 0 0 if (ref $def ne 'HASH')
2344 0 0 if (@_)
2355 0 0 unless ($data->{$field})
2369 0 0 $this->{'_data_repo'} ? :
2370 0 0 if (ref $def ne 'HASH')
2375 0 0 if scalar @_ == 1 and not defined $_[0]
2378 0 0 if (@_)
2381 0 0 unless $self->_set_get_array($ref)
2385 0 0 if (ref $ref->[$i] ne 'HASH')
2402 0 1 $this->{'_data_repo'} ? :
2403 0 1 if (@_)
2406 0 0 if ref $v ne 'CODE'
2417 0 0 $this->{'_data_repo'} ? :
2418 0 0 if (@_)
2423 0 0 if (not defined $time) { }
0 0 elsif (&Scalar::Util::blessed($time)) { }
0 0 elsif ($time =~ /^\d+$/ and not $time =~ /^\d{10}$/) { }
0 0 elsif ($now = $self->_parse_timestamp($time)) { }
2430 0 0 unless $time->isa('DateTime')
2461 0 0 if ($@) { }
2472 0 0 if (not $data->{$field} and want('OBJECT'))
2485 0 0 $this->{'_data_repo'} ? :
2487 0 0 if scalar @_ == 1 and not defined $_[0]
2488 0 0 if (@_)
2491 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (@_ % 2) { }
2515 0 128 $this->{'_data_repo'} ? :
2517 0 128 if scalar @_ == 1 and not defined $_[0]
2518 0 128 if (@_)
2521 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (@_ % 2) { }
2537 128 0 if ($data->{$field} and not $self->_is_object($data->{$field}))
2552 0 0 if @_ == 1 and not defined $_[0]
2553 0 0 if (@_) { }
2557 0 0 if (&Scalar::Util::reftype($_[0]) eq 'HASH') { }
0 0 elsif (ref $_[0]) { }
2583 0 0 $this->{'_data_repo'} ? :
2584 0 0 unless (Class::Load::is_class_loaded($class))
2602 0 0 if $@
2605 0 0 if (@_)
2615 0 0 unless ($data->{$field} and $self->_is_object($data->{$field}))
2627 0 3 $this->{'_data_repo'} ? :
2628 0 3 if scalar @_ == 1 and not defined $_[0]
2629 2 1 if (@_)
2642 0 0 $this->{'_data_repo'} ? :
2643 0 0 if (@_)
2645 0 0 if (ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])) { }
2663 0 3541 $this->{'_data_repo'} ? :
2666 3540 1 if (@_)
2668 3540 0 if (scalar @_ == 1) { }
2671 0 3540 if (not defined $_[0]) { }
3540 0 elsif (&Scalar::Util::blessed($_[0])) { }
2679 0 3540 unless $o->isa("$class")
2700 0 3541 if (not $data->{$field} and want('OBJECT'))
2720 0 0 $this->{'_data_repo'} ? :
2721 0 0 if (@_)
2724 0 0 unless $self->_is_array($data_to_process)
2728 0 0 if ref $ref ne 'ARRAY'
2733 0 0 if (defined $ref->[$i]) { }
2735 0 0 unless ref $ref->[$i]
2736 0 0 if (&Scalar::Util::blessed($ref->[$i])) { }
0 0 elsif (ref $ref->[$i] eq 'HASH') { }
2738 0 0 unless $ref->[$i]->isa($class)
2756 0 0 unless defined $o
2773 0 0 $this->{'_data_repo'} ? :
2774 0 0 if scalar @_ == 1 and not defined $_[0]
2775 0 0 if (@_)
2778 0 0 unless $self->_is_array($ref)
2782 0 0 if (defined $ref->[$i]) { }
2784 0 0 unless ref $ref->[$i]
2785 0 0 if (&Scalar::Util::blessed($ref->[$i])) { }
0 0 elsif (ref $ref->[$i] eq 'HASH') { }
2787 0 0 unless $ref->[$i]->isa($class)
2819 0 0 $this->{'_data_repo'} ? :
2820 0 0 if scalar @_ == 1 and not defined $_[0]
2821 0 0 if (@_)
2823 0 0 scalar @_ == 1 && UNIVERSAL::isa($_[0], 'ARRAY') ? :
2832 0 0 unless ($data->{$field} and $self->_is_object($data->{$field}))
2847 0 0 $this->{'_data_repo'} ? :
2848 0 0 if (@_)
2850 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (ref $_[0] eq 'ARRAY') { }
2875 0 4 $this->{'_data_repo'} ? :
2876 0 4 if (@_)
2878 0 0 @_ == 1 ? :
2881 0 0 if ref $val eq 'HASH' or ref $val eq 'ARRAY'
2892 0 55082 $this->{'_data_repo'} ? :
2893 3607 51475 if (@_)
2896 0 3607 if (ref $val eq 'SCALAR' or UNIVERSAL::isa($val, 'SCALAR')) { }
0 3607 elsif (ref $val) { }
2910 3412 195 if (ref $o) { }
2921 55082 0 if (not $self->_is_object($data->{$field}) or $self->_is_object($data->{$field}) and ref $data->{$field} ne ref $self)
2927 48769 6313 unless ($v->defined)
2929 1432 47337 if (Want::want('OBJECT')) { }
2947 0 0 $this->{'_data_repo'} ? :
2948 0 0 if (@_)
2950 0 0 if (ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])) { }
2959 0 0 if (not $data->{$field} and want('OBJECT'))
2974 0 0 $this->{'_data_repo'} ? :
2975 0 0 if (@_)
2979 0 0 unless $self->_is_class_loaded('URI')
2981 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
2984 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
2987 0 0 if (&Scalar::Util::blessed($str) and $str->isa('URI')) { }
0 0 elsif (defined $str and $str =~ m[^[a-zA-Z]+:/{2}] || $str =~ /^urn\:[a-z]+\:/ || $str =~ /^[a-z]+\:/) { }
0 0 elsif (substr($str, 0, 1) eq '/') { }
0 0 elsif (defined $str) { }
2994 0 0 unless $data->{$field}->has_recognized_scheme
3020 0 0 unless ($this->{'__dbh'})
3022 0 0 unless ${"${class}::DB_DSN";}
3026 0 0 if length ${"${class}::DB_RAISE_ERROR";}
3027 0 0 if length ${"${class}::DB_AUTO_COMMIT";}
3028 0 0 if length ${"${class}::DB_PRINT_ERROR";}
3029 0 0 if length ${"${class}::DB_SHOW_ERROR_STATEMENT";}
3030 0 0 if length ${"${class}::DB_CLIENT_ENCODING";}
3033 0 0 if ${"${class}::DB_SERVER_PREPARE";}
3059 0 0 if &Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic')
3066 0 0 if ($sub eq 'Module::Generic::AUTOLOAD')
3069 0 0 if ($MOD_PERL) { }
3081 0 0 if (index($meth, '::') != -1)
3088 0 0 if ($self and $self->can('autoload'))
3090 0 0 if (my $code = $self->autoload($meth))
3092 0 0 if $code
3098 0 0 if defined $self
3100 0 0 if ($this)
3102 0 0 $this->{'_data_repo'} ? :
3105 0 0 if ($data and exists $data->{$meth}) { }
0 0 elsif ($self and $self->can($meth) and defined &{"${class}::$meth";}) { }
0 0 elsif (defined &$meth) { }
3107 0 0 if (@_)
3109 0 0 @_ == 1 ? :
3112 0 0 if (wantarray) { }
3114 0 0 if (ref $data->{$meth} eq 'ARRAY') { }
0 0 elsif (ref $data->{$meth} eq 'HASH') { }
3150 0 0 if ($MOD_PERL) { }
3157 0 0 if $DEBUG
3160 0 0 if (defined($filename = $INC{"$pkg.pm"}))
3164 0 0 if (-r $filename) { }
3166 0 0 unless ($filename =~ m[^/]s)
3176 0 0 unless (defined $filename)
3188 0 0 if ($@)
3190 0 0 if (substr($sub, -9) eq '::DESTROY') { }
3201 0 0 if ($filename =~ s/(\w{12,})\.al$/substr($1, 0, 11) . '.al';/e)
3210 0 0 if ($@)
3221 0 0 if $func eq 'EXTRA_AUTOLOAD'
3222 0 0 if ($self and $func ne 'EXTRA_AUTOLOAD' and $sub_ref = $self->will('EXTRA_AUTOLOAD')) { }
3239 0 0 if ($DEBUG)
3242 0 0 if ($MOD_PERL) { }
3252 0 0 if $self
3295 1 0 if (@_)
3297 0 1 if (&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')) { }
1 0 elsif (ref $_[0] eq 'HASH') { }
3307 0 0 ref $_ eq 'CODE' ? :
3318 0 1 if (ref $args->{'object'} and &Scalar::Util::blessed($args->{'object'}) and $args->{'object'}->isa('Module::Generic::Exception')) { }
3330 0 1 if exists $args->{'code'}
3331 0 1 if exists $args->{'type'}
3332 0 1 if exists $args->{'retry_after'}
3374 0 0 if ref $class
3375 0 0 unless &Scalar::Util::blessed($e) and $e->isa($class)
3392 0 0 unless &Scalar::Util::blessed($self)
3423 0 0 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Exception')) { }
0 0 elsif (not ref $other) { }
3425 0 0 if ($self->message eq $other->message and $self->file eq $other->file and $self->line == $other->line) { }
3455 0 0 if ($code = $self->can($method)) { }
3463 0 0 if $@
3491 0 1432 @_ == 1 && ref $_[0] ? :
3503 0 0 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Null')) { }
0 0 elsif (not ref $other) { }
3524 0 1432 if (want('OBJECT'))
3555 0 0 if scalar @_ == 1 and not defined $_[0]
3556 0 0 if (scalar @_ == 1 and &Scalar::Util::reftype($_[0]) eq 'HASH') { }
0 0 elsif (@_) { }
3562 0 0 if $this->_warnings_is_enabled
3596 0 0 if $@
3602 0 0 if (ref $hash->{$k} eq 'HASH') { }
0 0 elsif (ref $hash->{$k} eq 'ARRAY') { }
0 0 elsif (not ref $hash->{$k}) { }
3615 0 0 if $@
3623 0 0 scalar @{$hash->{$k};} ? :
3624 0 0 if ($mode eq 'hash') { }
3629 0 0 $this->{'_looping'} ? :
3641 0 0 if $@
3671 0 0 if ($code = $self->can($method)) { }
3681 0 0 if ($ref eq 'hash' or $ref eq 'array') { }
0 0 elsif ($ref eq 'json::pp::boolean' or $ref eq 'module::generic::boolean' or $ref eq 'scalar' and $$ref == 1 || $$ref == 0) { }
3693 0 0 if $@
3712 4 3 $_[1] ? :
3723 0 0 if $_[0]
3724 0 0 if not $_[0]
3731 0 0 $_[0] ? :
3758 33 0 if @_ and &Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY'
3777 13 13 if @_
3778 6 20 if $sort
3788 4 0 if (defined $offset)
3790 1 3 unless ($offset =~ /^\-?\d+$/)
3792 0 1 if $self->_warnings_is_enabled
3795 0 3 if (defined $length and not $length =~ /^\-?\d+$/)
3797 0 0 if $self->_warnings_is_enabled
3800 2 1 defined $length ? :
3801 0 3 if (Want::want('LIST')) { }
3823 0 1 if (ref $code ne 'CODE')
3825 0 0 if $self->_warnings_is_enabled
3831 1 9 unless &$code($i, $v)
3847 0 1 if ref $code ne 'CODE'
3850 1 14 unless &$code($i, $self->[$i])
3859 0 1 if ref $code ne 'CODE'
3862 0 18 unless &$code($v)
3872 1 2 if (ref $expr eq 'CODE') { }
3878 1 1 ref $expr eq 'Regexp' ? :
3883 0 3 if (Want::want('LIST')) { }
3911 0 2 if ref $code ne 'CODE'
3913 1 1 if (Want::want('LIST')) { }
3940 0 1 unless UNIVERSAL::isa($ref, 'ARRAY')
3956 0 1 if (wantarray) { }
3969 1 0 scalar @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
3987 1 7 if (ref $code eq 'CODE') { }
3998 0 8 if (Want::want('LIST')) { }
4012 0 2 if (defined $offset and not $offset =~ /^\-?\d+$/)
4014 0 0 if $self->_warnings_is_enabled
4016 0 0 if scalar @list
4019 0 2 if (defined $length and not $length =~ /^\-?\d+$/)
4021 0 0 if $self->_warnings_is_enabled
4022 0 0 if scalar @list
4027 1 1 if (scalar @_ > 2) { }
1 0 elsif (not scalar @_) { }
4039 0 0 if defined $offset and defined $length
4040 0 0 if defined $offset
4062 0 1 if (Want::want('LIST')) { }
4076 0 19 unless defined $num
4077 0 19 unless CORE::length $num
4089 1 2 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Array')) { }
2 0 elsif (&Scalar::Util::reftype($other) eq 'ARRAY') { }
4110 0 3 unless defined $str
4133 0 3 if (not defined $$self) { }
0 3 elsif (not defined $other) { }
4144 0 3 if ($swap) { }
4160 0 1 $swap ? :
4162 0 1 if ($@)
4173 1 3198 if (&Scalar::Util::blessed($other) and ref $other eq ref $self) { }
4192 53609 1726 if (ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')) { }
0 1726 elsif (ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')) { }
0 1726 elsif (ref $_[0]) { }
1726 0 elsif (@_) { }
4202 0 0 if $this->_warnings_is_enabled
4218 2 1 ${$_[0];} ? :
4235 1 0 unless /[[:lower:]]/
4248 13 0 defined $4 ? :
5 13 defined $3 ? :
0 18 defined $2 ? :
4299 1 4 if (@_) { }
4321 0 2 if defined $pos
4349 1 0 ref $str eq 'Regexp' ? :
1 0 defined $str ? :
4361 0 0 ref $str eq 'Regexp' ? :
0 1 defined $str ? :
4373 1 0 ref $re eq 'Regexp' ? :
1 0 defined $re ? :
4388 0 2 if (not CORE::length $n) { }
0 2 elsif (not $n =~ /^\-?\d+$/) { }
4390 0 0 if $self->_warnings_is_enabled
4394 0 0 if $self->_warnings_is_enabled
4397 1 1 if ($n < 0) { }
4415 3 1 ref $re eq 'Regexp' ? :
4 0 defined $re ? :
4431 1 1 if defined $pos
4439 0 1 ref $str eq 'Regexp' ? :
1 0 defined $str ? :
4454 0 3413 if (ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')) { }
0 3413 elsif (ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')) { }
0 3413 elsif (ref $_[0]) { }
4464 0 0 if $self->_warnings_is_enabled
4481 0 2 if (defined $limit and $limit =~ /^\d+$/) { }
4489 2 0 if (Want::want('OBJECT') or Want::want('SCALAR')) { }
0 0 elsif (Want::want('LIST')) { }
4507 1 1 if defined $length and defined $replacement
4508 1 0 if defined $length
4516 0 2 defined $str ? :
4536 0 2 unless defined $arr
4537 0 2 if &Scalar::Util::reftype($arr) ne 'ARRAY'
4545 0 9 unless defined $num
4546 0 9 unless CORE::length $num
4603 0 2 $swap ? :
4605 0 2 if $@ and $self->_warnings_is_enabled
4606 0 2 if $@
4608 1 1 if ($res =~ /^$RE{'num'}{'real'}$/) { }
5007 0 130 unless CORE::length $num
5008 1 129 if POSIX::isinf($num)
5009 1 128 if POSIX::isnan($num)
5021 67 61 if ($self->{'lang'}) { }
61 0 elsif ($curr_locale and my $lconv = POSIX::localeconv()) { }
5034 67 0 if (index($_[0], '.') == -1) { }
5040 0 67 if (not $loc and exists $$SUPPORTED_LOCALES{$_[0]})
5045 0 0 if ($loc = POSIX::setlocale(&POSIX::LC_ALL, $supported))
5065 67 0 if (my $loc = &$try_locale($self->{'lang'})) { }
5073 67 0 if $lconv and scalar keys %$lconv
5080 0 67 if ($Nice::Try::WANTARRAY) { }
67 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 67 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 67 if ($Nice::Try::DIED)
5083 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 67 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5087 61 0 if scalar keys %$lconv
5134 172 1492 if CORE::length $self->{$prop}
5137 61 2606 if (defined $default->{$lconv_prop}) { }
5142 0 0 if (exists $numerics->{$lconv_prop} and CORE::length $default->{$lconv_prop} and $default->{$lconv_prop} < 0)
5176 233 1431 if ($self->$prop->defined) { }
5190 768 2304 if exists $skip->{$lconv_prop}
5193 1146 692 if (not CORE::length $opts->{$lconv_prop} and exists $numerics->{$lconv_prop})
5204 2 126 if ($Nice::Try::WANTARRAY) { }
126 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 128 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 128 if ($Nice::Try::DIED)
5208 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 128 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5212 1 127 if (not $num =~ /^$RE{'num'}{'real'}$/) { }
5221 1 127 unless defined $self->{'_number'}
5223 2 126 if ($Nice::Try::WANTARRAY) { }
126 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 128 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 128 if ($Nice::Try::DIED)
5226 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 127 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5238 2 2 +(shift())->{'_number'} ? :
5251 65 2 @_ ? :
5252 0 67 if POSIX::isinf($num)
5253 0 67 if POSIX::isnan($num)
5264 6 135 &Scalar::Util::blessed($other) ? :
5265 6 135 $swap ? :
5266 37 104 if ($opts->{'return_object'}) { }
101 3 elsif ($opts->{'boolean'}) { }
5270 0 37 if $@ and $self->_warnings_is_enabled
5271 0 37 if $@
5272 1 36 if $opts->{'type'} eq 'scalar'
5273 5 31 if POSIX::isinf($res)
5274 4 27 if POSIX::isnan($res)
5276 27 0 if defined $res
5283 0 101 if $@ and $self->_warnings_is_enabled
5284 0 101 if $@
5285 97 4 $res ? :
5308 0 2 @_ && $_[0] =~ /^\d+$/ ? :
5312 0 2 unless defined $num
5320 0 2 unless defined $res
5323 0 2 if ($Nice::Try::WANTARRAY) { }
2 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 2 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 2 if ($Nice::Try::DIED)
5326 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 2 $Nice::Try::WANTARRAY ? :
2 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5337 0 1 unless defined $num
5343 0 1 unless defined $res
5346 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
5349 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5357 0 1 @_ && $_[0] =~ /^\d+$/ ? :
5358 0 1 @_ ? :
5362 0 1 unless defined $num
5372 0 1 unless defined $res
5375 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
5378 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5387 0 1 unless defined $num
5396 0 1 unless defined $res
5399 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
5402 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5411 0 0 unless defined $num
5417 0 0 unless defined $res
5420 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
5423 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5433 0 1 unless defined $binary and CORE::length $binary
5438 0 1 unless defined $res
5441 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
5444 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5451 0 1 unless defined $hex and CORE::length $hex
5455 0 1 unless defined $res
5458 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
5461 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5514 0 3540 if (@_) { }
5516 0 0 if (@_ == 1 and $self->_is_hash($_[0])) { }
0 0 elsif (not @_ % 2) { }
5543 5298 40722 if defined $hash->{$prop}
5547 3540 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 3540 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 3540 if ($Nice::Try::DIED)
5550 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
3540 0 $Nice::Try::WANTARRAY ? :
3540 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5571 1 0 CORE::length $_[1] ? :
5581 0 0 unless defined $num
5587 0 0 unless defined $res
5592 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
5595 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5622 0 1 unless defined $num
5631 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
5634 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5643 20 9 if ref $_[-1] eq 'HASH'
5644 20 9 $opts->{'posix'} ? :
5645 4 25 @_ ? :
5646 4 25 defined $val ? :
5650 0 29 if $@
5651 0 29 if $@
5652 0 29 unless defined $res
5653 0 29 if POSIX::isinf($res)
5654 0 29 if POSIX::isnan($res)
5662 3540 47929 if (@_)
5665 871 2669 if $self->_is_object($val) and $val->isa('Module::Generic::Scalar')
5667 3540 0 if ($val ne $self->{$prop} or not defined $val)
5672 0 3540 unless $self->formatter($self->new_formatter)
5685 0 0 if ($code)
5691 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 0 if ($Nice::Try::DIED)
5695 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5750 0 1 $swap ? :
5753 0 1 if $@
5754 0 1 if $@
5755 0 1 if POSIX::isnormal($res)
5756 1 0 if POSIX::isinf($res)
5757 0 0 if POSIX::isnan($res)
5766 5 2 if ref $_[-1] eq 'HASH'
5767 5 2 $opts->{'posix'} ? :
5768 3 4 @_ ? :
5769 3 4 defined $val ? :
5773 0 7 if $@
5774 0 7 unless defined $res
5775 3 4 if POSIX::isnormal($res)
5776 4 0 if POSIX::isinf($res)
5777 0 0 if POSIX::isnan($res)
5786 0 0 if (want('OBJECT'))
5858 0 133 if &Scalar::Util::reftype($data) ne 'HASH'
5860 0 133 if $tied
5905 0 1 if ref $code ne 'CODE'
5908 0 4 unless &$code($k, $v)
5921 0 1 if ref $code ne 'CODE'
5924 0 4 unless &$code($k, $self->{$k})
5933 1 1 if ref $_[-1] eq 'HASH'
5937 1 1 if ($opts->{'pretty'}) { }
5959 0 2 if not $hash or &Scalar::Util::reftype($hash) ne 'HASH'
5962 1 1 if @_ and ref $_[-1] eq 'HASH'
5963 1 1 unless exists $opts->{'overwrite'}
5972 2 2 if @_ and ref $_[-1] eq 'HASH'
5977 6 8 if exists $to->{$k} and not $p->{'overwrite'}
5978 2 6 if (ref $this->{$k} eq 'HASH' or &Scalar::Util::blessed($this->{$k}) and $this->{$k}->isa('Module::Generic::Hash')) { }
5983 0 2 if (exists $seen->{$addr}) { }
5990 1 1 unless &Scalar::Util::reftype($to->{$k}) eq 'HASH'
6015 1 0 if @_ and ref $_[0] eq 'CODE'
6017 1 0 if &Scalar::Util::reftype($_[-1]) eq 'HASH'
6018 1 0 if ($code) { }
6020 1 0 if ($opts->{'sort'}) { }
6031 0 0 if ($opts->{'sort'}) { }
6083 0 3 if (wantarray) { }
6094 0 3 wantarray ? :
6102 7 5 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')) { }
5 0 elsif ($other =~ /^$RE{'num'}{'real'}$/) { }
6114 2 10 $swap ? :
6127 2 0 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')) { }
0 0 elsif (&Scalar::Util::reftype($other) eq 'HASH') { }
6162 133 0 if @_
6163 0 133 if (&Scalar::Util::reftype($opts) ne 'HASH')
6165 0 0 if $self->_warnings_is_enabled
6169 133 0 if &Scalar::Util::reftype($opts->{'disable'})
6201 0 1 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6218 0 3 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6236 548 18 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6255 0 26 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6272 88 0 ref $self->{'ITERATOR'} ? :
6281 0 0 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6298 800 3116 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6336 0 0 if ($arg{'pkg'})
6339 0 0 ref $ok eq 'ARRAY' ? :
6354 0 0 if $data->{'readonly'} and $pkg ne 'Module::Generic::Tie'
6356 0 0 unless ($data->{'perms'} & 2)
6358 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6377 0 0 if $pkg eq 'Module::Generic'
6380 0 0 if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
6382 0 0 unless ($data->{'perms'} & 2)
6384 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6393 0 0 if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
6395 0 0 unless ($data->{'perms'} & 4)
6398 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6410 0 0 if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
6414 0 0 unless ($data->{'perms'} & 4)
6418 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6430 0 0 unless ($data->{'perms'} & 4)
6434 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6450 0 0 unless ($data->{'perms'} & 4)
6454 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6464 0 0 if $_[0] eq '__priv__'
6468 0 0 unless ($data->{'perms'} & 2)
6471 0 0 if $pkg eq 'Module::Generic'
6473 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}