Branch Coverage

blib/lib/Module/Generic.pm
Criterion Covered Total %
branch 515 1904 27.0


line true false branch
99 0 7 if (defined $path)
110 0 0 if ($@)
120 0 0 if ($@)
122 0 0 unless $SILENT_AUTOLOAD
136 0 153 if (defined ${"${class}::OBJECT_PERMS";})
148 0 153 if ($MOD_PERL)
162 0 153 if (defined ${"${class}::LOG_DEBUG";})
176 0 0 if scalar @_ == 1 and ref $_[0] eq 'HASH'
186 0 0 if substr($meth, 0, 1) eq '_'
188 0 0 if ($@)
196 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)) { }
204 0 0 if ($rv->can('as_hash') and overload::Overloaded($rv) and overload::Method($rv, '""')) { }
0 0 elsif ($rv->can('as_hash')) { }
217 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") { }
219 0 0 if scalar keys %$rv
227 0 0 $self->_is_object($this_ref) && $this_ref->can('as_hash') ? :
230 0 0 if scalar @$arr
234 0 0 if length $rv
284 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)
287 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'))
309 0 0 if ($colour =~ /^[A-Z]+([A-Z\s]+)*$/) { }
0 0 elsif ($colour =~ /^\d{9}$/) { }
0 0 elsif ($colour =~ /^[A-F0-9]+$/) { }
311 0 0 unless (scalar keys %$COLOUR_NAME_TO_RGB)
317 0 0 if /^[[:blank:]]*$/
318 0 0 if /^\=/
324 0 0 if (exists $$COLOUR_NAME_TO_RGB{lc $colour})
370 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)
378 0 0 if ($red_ok)
380 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)
389 0 0 if ($blue_ok)
391 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)
409 0 12 unless $self->_is_hash($opts)
412 0 12 if length $opts->{'message'} and not length $opts->{'text'}
413 0 12 unless length $opts->{'text'}
467 1 0 if (ref $bg eq 'HASH')
486 17 1 if ($col =~ /^(?:(?<light>bright|light)[[:blank:]\_]+)?
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) { }
498 3 14 if (length $+{'rgb_type'} and length $+{'red'} and length $+{'green'} and length $+{'blue'}) { }
503 1 2 if ($+{'opacity'} or $light) { }
507 0 0 $light ? :
1 0 length $+{'opacity'} ? :
524 0 0 if ($+{'opacity'}) { }
539 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)) { }
555 1 0 if ($+{'opacity'})
560 1 0 if ($opts->{'bgcolour'})
603 0 0 if ($opts->{'colour'} or $opts->{'color'} or $opts->{'fgcolour'} or $opts->{'fgcolor'} or $opts->{'fg_colour'} or $opts->{'fg_color'})
608 11 1 if (scalar keys %$col_ref) { }
619 0 6 if ($opts->{'bgcolour'} or $opts->{'bgcolor'} or $opts->{'bg_colour'} or $opts->{'bg_color'})
624 6 0 if (scalar keys %$col_ref) { }
635 11 1 if ($opts->{'style'})
643 12 0 if (exists $$styles{lc $s})
648 12 0 if scalar @$params8
652 11 1 if scalar @$params8
653 11 1 if scalar @$params
656 1 11 if (scalar @$params and $opts->{'text'} =~ /\n+/) { }
664 0 2 unless length $text_parts->[$i]
673 10 1 if scalar @$params
714 2 7 if (index($ct, $open) != -1 and index($ct, $close) != -1)
719 5 4 if ($params =~ /^[[:blank:]]*(?:(?<style1>$style_re)[[:blank:]]+)?(?<fg_colour>$colour_re)(?:[[:blank:]]+(?<style2>$style_re))?(?:[[:blank:]]+on[[:blank:]]+(?<bg_colour>$colour_re))?[[:blank:]]*$/i) { }
737 4 0 if scalar @res and not scalar(@res) % 2
738 0 4 if ($@ or ref $def ne 'HASH')
745 9 0 if (scalar keys %$def) { }
750 9 0 length $res ? :
770 15 0 if ($colour =~ /^[A-Za-z]+([\w\-]+)*([[:blank:]]+\w+)?$/) { }
0 0 elsif ($colour =~ /^\d{9}$/) { }
0 0 elsif ($colour =~ /^[A-F0-9]+$/) { }
773 1 14 unless (scalar keys %$COLOUR_NAME_TO_RGB)
778 0 1 if ($@)
783 14 1 if (exists $COLOUR_NAME_TO_RGB->{$colour}) { }
829 3 0 if ($pref =~ /^(?:(?<style1>$style_re)[[:blank:]]+)?(?<fg_colour>$colour_re)(?:[[:blank:]]+(?<style2>$style_re))?(?:[[:blank:]]+on[[:blank:]]+(?<bg_colour>$colour_re))?$/i) { }
849 148 5 if (@_)
853 0 148 if $OPTIMIZE_MESG_SUB
854 0 148 if ($this->{'debug'} and not $this->{'debug_level'})
867 0 0 if (@_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'filter'} and ref $_[-1]{'filter'} eq 'CODE') { }
888 0 0 if scalar @_ > 1 and ref $_[-1] eq 'HASH'
893 0 0 if length $opts->{'depth'}
906 0 0 if scalar @_ > 1 and ref $_[-1] eq 'HASH'
912 0 0 unless ($@)
914 0 0 if (scalar keys %$opts) { }
949 0 0 if (ref $data) { }
968 0 0 if (@_)
970 0 0 if $_[0] =~ /^\-?\d+$/
971 0 0 if @_
981 1 0 if (@_)
984 0 1 if (&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')) { }
0 1 elsif (ref $_[0] eq 'HASH') { }
994 0 1 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
996 0 1 if $this->{'error_max_length'} > 0 and length $args->{'message'} > $this->{'error_max_length'}
1017 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)
1020 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'))
1022 0 1 if ($no_use_warnings)
1028 0 0 unless ($call_offset > 0 and $call_data[0] ne $class and (caller $call_offset - 1)[0] eq $class)
1034 0 0 if $call_data[9] or $call_offset > 0 and (caller $call_offset - 1)[0] ne $class
1045 0 1 if $MOD_PERL
1047 0 1 if $r
1049 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'}) { }
1057 0 0 if (my $log_handler = $r->get_handlers('PerlPrivateErrorHandler')) { }
1065 0 0 if $should_display_warning
1073 0 0 $@ ? :
1078 0 1 if ($r) { }
1080 0 0 if $should_display_warning
1085 0 0 $@ ? :
0 1 if $should_display_warning
1089 1 0 if (overload::Overloaded($self))
1093 1 0 if ref $overload_meth_ref
1105 1 0 if (length $overload_meth_name and $overload_meth_name eq $call_sub)
1121 0 0 if (not $args->{'no_return_null_object'} and want('OBJECT'))
1128 0 0 ref $self ? :
1139 0 0 $this->{'_data_repo'} ? :
1141 0 0 wantarray ? :
1149 298 0 unless length $this->{'verbose'}
1150 150 148 unless length $this->{'debug'}
1151 298 0 unless defined $this->{'version'}
1153 298 0 unless length $this->{'colour_open'}
1154 298 0 unless length $this->{'colour_close'}
1160 0 298 if ($this->{'_data_repo'})
1162 0 0 unless $$this{$this->{'_data_repo'}}
1165 0 298 if @_ == 1 and not defined $_[0]
1166 82 216 if (@_)
1170 80 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) { }
1176 80 0 if exists $h->{'debug'}
1178 68 12 if defined $debug_value
1205 138 1951 if ($vals->[$i] eq 'debug')
1219 1042 0 if (defined $meth) { }
0 0 elsif ($this->{'_init_strict_use_sub'}) { }
0 0 elsif (exists $data->{$name}) { }
1241 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'}) { }
1245 0 0 if (not &Scalar::Util::blessed($val)) { }
0 0 elsif (not $val->isa($thisPack)) { }
1256 0 0 if (ref $data->{$name} eq 'ARRAY') { }
0 0 elsif (ref $data->{$name} eq 'HASH') { }
0 0 elsif (ref $data->{$name} eq 'SCALAR') { }
1258 0 0 if &Scalar::Util::reftype($val) ne 'ARRAY'
1262 0 0 if &Scalar::Util::reftype($val) ne 'HASH'
1266 0 0 if &Scalar::Util::reftype($val) ne 'SCALAR'
1274 0 0 if $this->{'_init_strict'}
1319 0 0 if $MOD_PERL
1320 0 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1327 0 0 unless $ref
1330 0 0 if ref $ref->[-1] eq 'HASH'
1338 0 0 unless $stackFrame =~ /^\d+$/
1339 0 0 if $stackFrame
1340 0 0 if (caller 1)[3] eq 'Module::Generic::messagef' or (caller 1)[3] eq 'Module::Generic::message_colour'
1342 0 0 if (caller 2)[3] eq 'Module::Generic::messagef_colour'
1346 0 0 if (ref $this->{'_message_frame'} eq 'HASH')
1348 0 0 if (exists $this->{'_message_frame'}{$sub2})
1351 0 0 if ($frameNo > 0)
1359 0 0 if ($sub2 eq 'message')
1368 0 0 if ($opts->{'message'}) { }
1370 0 0 if (ref $opts->{'message'} eq 'ARRAY') { }
1372 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1381 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1399 0 0 exists $opts->{'level'} ? :
0 0 $_[0] =~ /^\d+$/ ? :
1401 0 0 if $opts->{'type'}
1407 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")) { }
1410 0 0 if (my $log_handler = $r->get_handlers('PerlPrivateLogHandler')) { }
1453 0 0 unless $opts->{'no_encoding'}
1467 0 0 if (@_)
1469 0 0 unless ($_[0] =~ /^\d/)
1472 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) { }
1489 0 0 if ($_[0] =~ /^\d+$/ || ref $_[-1] eq 'HASH' && exists $_[-1]{'level'} and @_ > 1)
1493 0 0 if ($_[0] =~ /^\d+$/) { }
0 0 elsif (ref $_[-1] eq 'HASH' and exists $_[-1]{'level'}) { }
1502 0 0 if (ref ${"${class}::DEBUG_TARGET";} eq 'ARRAY')
1504 0 0 scalar @${"${class}::DEBUG_TARGET";} ? :
1506 0 0 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) { }
1532 0 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1534 0 0 $_[0] =~ /^\d+$/ ? :
1536 0 0 if (scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'})
1541 0 0 if not defined $level and exists $opts->{'level'}
1543 0 0 if ($opts->{'message'}) { }
1545 0 0 if (ref $opts->{'message'} eq 'ARRAY') { }
1547 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1556 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1560 0 0 if defined $level
1570 0 0 unless exists $this->{'_message_frame'}
1572 0 0 if (@_)
1575 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (not @_ % 2) { }
0 0 elsif (scalar @_ == 1) { }
1590 0 0 if index($sub, '::') != -1
1606 0 0 unless $io
1608 0 0 if not &Scalar::Util::openhandle($io) and $io
1624 0 0 if (@_) { }
0 0 elsif (${"${class}::LOG_DEBUG";} and not $self->_set_get('log_io') and ${"${class}::DEB_LOG";}) { }
1634 0 0 unless ($DEBUG_LOG_IO)
1650 298 0 if (@_)
1653 1 297 if ($flag) { }
297 0 elsif (not $flag || $this->{'verbose'} || $this->{'debug'}) { }
1655 1 0 if (defined &{"${pkg}::message_off";}) { }
1668 24 273 unless defined &{"${pkg}::message_off";}
1681 0 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1683 0 0 $_[0] =~ /^\d+$/ ? :
1685 0 0 if (scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'} || exists $_[-1]{'colour'})
1689 0 0 if not defined $level and exists $opts->{'level'}
1691 0 0 if ($opts->{'message'}) { }
1693 0 0 if (ref $opts->{'message'} eq 'ARRAY') { }
1709 0 0 ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
1711 0 0 if $opts->{'colour'}
1714 0 0 if defined $level
1725 0 0 if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
1729 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'})
1773 0 0 unless ref $err and &Scalar::Util::blessed($err)
1775 0 0 if (want('OBJECT'))
1790 0 0 if ref $_[-1] eq 'HASH'
1792 0 0 if (@_ == 2)
1797 0 0 unless $opts->{'file'}
1799 0 0 if $opts->{'encoding'}
1801 0 0 ref $opts->{'data'} eq 'SCALAR' ? :
0 0 unless (defined $fh->print(ref $opts->{'data'} eq 'SCALAR' ? ${$$opts{'data'};} : $opts->{'data'}))
1814 0 0 if (@_)
1818 0 0 $this->{'_data_repo'} ? :
1829 0 0 @_ ? :
1840 0 0 if (defined $io) { }
1842 0 0 if substr($_, -3) eq '.pm'
1843 0 0 unless $io->close
1850 0 0 wantarray ? :
1861 0 0 if (@_)
1865 0 0 if $OPTIMIZE_MESG_SUB
1872 0 0 unless @_ >= 2 and @_ <= 3
1875 0 0 if (@_ == 3 and ref $_[1]) { }
1884 0 0 if not ref $obj and index($obj, '::') == -1
1887 0 0 if (&Scalar::Util::blessed($obj) and $ref = $obj->can($meth))
1893 0 0 if (index($meth, '::') != -1)
1898 0 0 if defined &{"${class}::$meth";}
1901 0 0 if defined $ref
1904 0 0 if $level >= 10
1909 0 0 if (@{"${class}::ISA";})
1916 0 0 if defined $ref
1923 0 0 if ($class ne 'Module::Generic' and $meth ne 'EXTRA_AUTOLOAD' and defined &{"${class}::AUTOLOAD";})
1958 0 0 if $@
1960 0 0 if scalar @_ == 1 and not defined $_[0]
1961 0 0 @_ ? :
1962 0 0 if $o->can('debug')
1963 0 0 unless defined $o
1965 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)
1968 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'))
1984 0 0 unless $obj and $pkg
1985 0 0 unless $self->_is_object($obj)
2010 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)
2013 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'))
2020 66960 0 if (&Scalar::Util::reftype($self) eq 'HASH') { }
0 0 elsif (&Scalar::Util::reftype($self) eq 'GLOB') { }
0 0 elsif (not ref $self) { }
2058 0 0 unless length $str
2073 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})$]) { }
2076 0 0 unless (length $zone)
2088 0 0 if length $zone == 3
2131 0 4 $this->{'_data_repo'} ? :
2132 4 0 if (@_)
2134 4 0 @_ == 1 ? :
2137 0 4 if (wantarray) { }
2139 0 0 if (ref $data->{$field} eq 'ARRAY') { }
0 0 elsif (ref $data->{$field} eq 'HASH') { }
2163 0 0 $this->{'_data_repo'} ? :
2164 0 0 if (@_)
2166 0 0 @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
2177 0 20 $this->{'_data_repo'} ? :
2178 0 20 if (@_)
2180 0 0 @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
2183 0 0 if ($o) { }
2185 0 0 unless ($self->_is_object($o))
2198 0 20 unless ($data->{$field} and $self->_is_object($data->{$field}))
2211 0 472 $this->{'_data_repo'} ? :
2212 472 0 if (@_)
2216 0 472 if (&Scalar::Util::blessed($val) and $val->isa('JSON::PP::Boolean') || $val->isa('Module::Generic::Boolean')) { }
0 472 elsif (&Scalar::Util::reftype($val) eq 'SCALAR') { }
0 472 elsif (lc $val eq 'true' or lc $val eq 'false') { }
2223 0 0 $$val ? :
2227 0 0 lc $val eq 'true' ? :
2231 310 162 $val ? :
2237 0 472 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'))
2248 0 0 $val ? :
2259 0 0 if ($def->{'_class'}) { }
2271 0 0 unless (Class::Load::is_class_loaded($class))
2305 0 0 $call_sub eq '_set_get_class' ? :
2313 0 0 unless (exists $type2func->{$type})
2319 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') { }
2323 0 0 unless ($info->{'class'})
2334 0 0 if (not exists $info->{'definition'}) { }
0 0 elsif (ref $this_def ne 'HASH') { }
2370 0 0 if $@
2389 0 0 $this->{'_data_repo'} ? :
2390 0 0 if scalar @_ == 1 and not defined $_[0]
2391 0 0 if (ref $def ne 'HASH')
2399 0 0 if (@_)
2410 0 0 unless ($data->{$field})
2424 0 0 $this->{'_data_repo'} ? :
2425 0 0 if (ref $def ne 'HASH')
2430 0 0 if scalar @_ == 1 and not defined $_[0]
2433 0 0 if (@_)
2436 0 0 unless $self->_set_get_array($ref)
2440 0 0 if (ref $ref->[$i] ne 'HASH')
2457 0 1 $this->{'_data_repo'} ? :
2458 0 1 if (@_)
2461 0 0 if ref $v ne 'CODE'
2472 0 0 $this->{'_data_repo'} ? :
2473 0 0 if (@_)
2478 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)) { }
2485 0 0 unless $time->isa('DateTime')
2516 0 0 if ($@) { }
2527 0 0 if (not $data->{$field} and want('OBJECT'))
2540 0 0 $this->{'_data_repo'} ? :
2542 0 0 if scalar @_ == 1 and not defined $_[0]
2543 0 0 if (@_)
2546 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (@_ % 2) { }
2570 0 143 $this->{'_data_repo'} ? :
2572 0 143 if scalar @_ == 1 and not defined $_[0]
2573 0 143 if (@_)
2576 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (@_ % 2) { }
2592 143 0 if ($data->{$field} and not $self->_is_object($data->{$field}))
2607 0 0 if @_ == 1 and not defined $_[0]
2608 0 0 if (@_) { }
2612 0 0 if (&Scalar::Util::reftype($_[0]) eq 'HASH') { }
0 0 elsif (ref $_[0]) { }
2638 0 0 $this->{'_data_repo'} ? :
2639 0 0 unless (Class::Load::is_class_loaded($class))
2657 0 0 if $@
2660 0 0 if (@_)
2670 0 0 unless ($data->{$field} and $self->_is_object($data->{$field}))
2682 0 0 $this->{'_data_repo'} ? :
2683 0 0 if (want(('LVALUE', 'ASSIGN'))) { }
2692 0 0 if (@_)
2694 0 0 if scalar @_ == 1 and not defined $_[0]
2697 0 0 if want('LVALUE')
2722 0 4 $this->{'_data_repo'} ? :
2724 0 4 if (want(('LVALUE', 'ASSIGN'))) { }
2735 0 4 if scalar @_ == 1 and not defined $_[0]
2736 3 1 if (@_)
2742 0 4 if (length $data->{$field} and not ref $data->{$field})
2747 0 4 if want('LVALUE')
2762 0 0 $this->{'_data_repo'} ? :
2763 0 0 if (@_)
2765 0 0 if (ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])) { }
2783 0 3973 $this->{'_data_repo'} ? :
2786 3962 11 if (@_)
2788 3962 0 if (scalar @_ == 1) { }
2791 0 3962 if (not defined $_[0]) { }
3962 0 elsif (&Scalar::Util::blessed($_[0])) { }
2799 0 3962 unless $o->isa("$class")
2820 0 3973 if (not $data->{$field} and want('OBJECT'))
2840 0 0 $this->{'_data_repo'} ? :
2841 0 0 if (@_)
2844 0 0 unless $self->_is_array($data_to_process)
2848 0 0 if ref $ref ne 'ARRAY'
2853 0 0 if (defined $ref->[$i]) { }
2855 0 0 unless ref $ref->[$i]
2856 0 0 if (&Scalar::Util::blessed($ref->[$i])) { }
0 0 elsif (ref $ref->[$i] eq 'HASH') { }
2858 0 0 unless $ref->[$i]->isa($class)
2876 0 0 unless defined $o
2893 0 0 $this->{'_data_repo'} ? :
2894 0 0 if scalar @_ == 1 and not defined $_[0]
2895 0 0 if (@_)
2898 0 0 unless $self->_is_array($ref)
2902 0 0 if (defined $ref->[$i]) { }
2904 0 0 unless ref $ref->[$i]
2905 0 0 if (&Scalar::Util::blessed($ref->[$i])) { }
0 0 elsif (ref $ref->[$i] eq 'HASH') { }
2907 0 0 unless $ref->[$i]->isa($class)
2939 0 0 $this->{'_data_repo'} ? :
2940 0 0 if scalar @_ == 1 and not defined $_[0]
2941 0 0 if (@_)
2943 0 0 scalar @_ == 1 && UNIVERSAL::isa($_[0], 'ARRAY') ? :
2952 0 0 unless ($data->{$field} and $self->_is_object($data->{$field}))
2967 0 0 $this->{'_data_repo'} ? :
2968 0 0 if (@_)
2970 0 0 if (ref $_[0] eq 'HASH') { }
0 0 elsif (ref $_[0] eq 'ARRAY') { }
2995 0 4 $this->{'_data_repo'} ? :
2996 0 4 if (@_)
2998 0 0 @_ == 1 ? :
3001 0 0 if ref $val eq 'HASH' or ref $val eq 'ARRAY'
3012 0 61554 $this->{'_data_repo'} ? :
3013 4030 57524 if (@_)
3016 0 4030 if (ref $val eq 'SCALAR' or UNIVERSAL::isa($val, 'SCALAR')) { }
0 4030 elsif (ref $val) { }
3030 3814 216 if (ref $o) { }
3041 61554 0 if (not $self->_is_object($data->{$field}) or $self->_is_object($data->{$field}) and ref $data->{$field} ne ref $self)
3047 54320 7234 if (not $v->defined) { }
3049 1612 52708 if (Want::want('OBJECT')) { }
3070 0 0 $this->{'_data_repo'} ? :
3071 0 0 if (@_)
3073 0 0 if (ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])) { }
3082 0 0 if (not $data->{$field} and want('OBJECT'))
3097 0 0 $this->{'_data_repo'} ? :
3098 0 0 if (@_)
3102 0 0 unless $self->_is_class_loaded('URI')
3104 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)
3107 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'))
3110 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) { }
3117 0 0 unless $data->{$field}->has_recognized_scheme
3139 0 0 scalar @_ == 0 || scalar @_ == 1 && !defined($_[0]) ? :
0 0 scalar @_ == 1 && $self->_is_array($_[0]) ? :
3154 0 0 unless ($this->{'__dbh'})
3156 0 0 unless ${"${class}::DB_DSN";}
3160 0 0 if length ${"${class}::DB_RAISE_ERROR";}
3161 0 0 if length ${"${class}::DB_AUTO_COMMIT";}
3162 0 0 if length ${"${class}::DB_PRINT_ERROR";}
3163 0 0 if length ${"${class}::DB_SHOW_ERROR_STATEMENT";}
3164 0 0 if length ${"${class}::DB_CLIENT_ENCODING";}
3167 0 0 if ${"${class}::DB_SERVER_PREPARE";}
3193 0 0 if &Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic')
3200 0 0 if ($sub eq 'Module::Generic::AUTOLOAD')
3203 0 0 if ($MOD_PERL) { }
3215 0 0 if (index($meth, '::') != -1)
3222 0 0 if ($self and $self->can('autoload'))
3224 0 0 if (my $code = $self->autoload($meth))
3226 0 0 if $code
3232 0 0 if defined $self
3234 0 0 if ($this)
3236 0 0 $this->{'_data_repo'} ? :
3239 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) { }
3241 0 0 if (@_)
3243 0 0 @_ == 1 ? :
3246 0 0 if (wantarray) { }
3248 0 0 if (ref $data->{$meth} eq 'ARRAY') { }
0 0 elsif (ref $data->{$meth} eq 'HASH') { }
3284 0 0 if ($MOD_PERL) { }
3291 0 0 if $DEBUG
3294 0 0 if (defined($filename = $INC{"$pkg.pm"}))
3298 0 0 if (-r $filename) { }
3300 0 0 unless ($filename =~ m[^/]s)
3310 0 0 unless (defined $filename)
3322 0 0 if ($@)
3324 0 0 if (substr($sub, -9) eq '::DESTROY') { }
3335 0 0 if ($filename =~ s/(\w{12,})\.al$/substr($1, 0, 11) . '.al';/e)
3344 0 0 if ($@)
3355 0 0 if $func eq 'EXTRA_AUTOLOAD'
3356 0 0 if ($self and $func ne 'EXTRA_AUTOLOAD' and $sub_ref = $self->will('EXTRA_AUTOLOAD')) { }
3373 0 0 if ($DEBUG)
3376 0 0 if ($MOD_PERL) { }
3386 0 0 if $self
3429 1 0 if (@_)
3431 0 1 if (&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')) { }
1 0 elsif (ref $_[0] eq 'HASH') { }
3441 0 0 ref $_ eq 'CODE' ? :
3452 0 1 if (ref $args->{'object'} and &Scalar::Util::blessed($args->{'object'}) and $args->{'object'}->isa('Module::Generic::Exception')) { }
3464 0 1 if exists $args->{'code'}
3465 0 1 if exists $args->{'type'}
3466 0 1 if exists $args->{'retry_after'}
3508 0 0 if ref $class
3509 0 0 unless &Scalar::Util::blessed($e) and $e->isa($class)
3526 0 0 unless &Scalar::Util::blessed($self)
3557 0 0 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Exception')) { }
0 0 elsif (not ref $other) { }
3559 0 0 if ($self->message eq $other->message and $self->file eq $other->file and $self->line == $other->line) { }
3589 0 0 if ($code = $self->can($method)) { }
3597 0 0 if $@
3625 0 1612 @_ == 1 && ref $_[0] ? :
3637 0 0 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Null')) { }
0 0 elsif (not ref $other) { }
3658 0 1612 if (want('OBJECT'))
3689 0 0 if scalar @_ == 1 and not defined $_[0]
3690 0 0 if (scalar @_ == 1 and &Scalar::Util::reftype($_[0]) eq 'HASH') { }
0 0 elsif (@_) { }
3696 0 0 if $this->_warnings_is_enabled
3730 0 0 if $@
3736 0 0 if (ref $hash->{$k} eq 'HASH') { }
0 0 elsif (ref $hash->{$k} eq 'ARRAY') { }
0 0 elsif (not ref $hash->{$k}) { }
3749 0 0 if $@
3757 0 0 scalar @{$hash->{$k};} ? :
3758 0 0 if ($mode eq 'hash') { }
3763 0 0 $this->{'_looping'} ? :
3775 0 0 if $@
3805 0 0 if ($code = $self->can($method)) { }
3815 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) { }
3827 0 0 if $@
3846 4 3 $_[1] ? :
3857 0 0 if $_[0]
3858 0 0 if not $_[0]
3865 0 0 $_[0] ? :
3894 35 0 if @_ and &Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY'
3902 2 0 if &Scalar::Util::reftype($opts) eq 'HASH'
3906 0 2 if ($opts->{'start_from'})
3923 6 13 if @_
3924 6 13 if $sort
3934 4 0 if (defined $offset)
3936 1 3 unless ($offset =~ /^\-?\d+$/)
3938 0 1 if $self->_warnings_is_enabled
3941 0 3 if (defined $length and not $length =~ /^\-?\d+$/)
3943 0 0 if $self->_warnings_is_enabled
3946 2 1 defined $length ? :
3947 0 3 if (Want::want('LIST')) { }
3969 0 1 if (ref $code ne 'CODE')
3971 0 0 if $self->_warnings_is_enabled
3978 0 18 unless defined &$code($i, $v)
3993 0 0 if CORE::length $self->[0]
3994 0 0 if (Want::want('OBJECT'))
4005 0 1 if ref $code ne 'CODE'
4009 0 18 unless defined &$code($i, $self->[$i])
4018 0 1 if ref $code ne 'CODE'
4022 0 18 unless defined &$code($v)
4039 1 2 if (ref $expr eq 'CODE') { }
4045 1 1 ref $expr eq 'Regexp' ? :
4050 0 3 if (Want::want('LIST')) { }
4087 0 0 if CORE::length $self->[-1]
4088 0 0 if (Want::want('OBJECT'))
4103 0 3 if ref $code ne 'CODE'
4105 1 2 if (Want::want('OBJECT')) { }
1 1 elsif (Want::want('LIST')) { }
4129 0 0 unless CORE::length $this
4131 0 0 $is_ref ? :
4134 0 0 if ($is_ref and &Scalar::Util::refaddr($self->[$i]) eq $ref or not $is_ref and $self->[$i] eq $this)
4154 0 1 unless UNIVERSAL::isa($ref, 'ARRAY')
4170 0 1 if (wantarray) { }
4185 1 0 scalar @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
4203 1 7 if (ref $code eq 'CODE') { }
4214 0 8 if (Want::want('LIST')) { }
4228 0 2 if (defined $offset and not $offset =~ /^\-?\d+$/)
4230 0 0 if $self->_warnings_is_enabled
4232 0 0 if scalar @list
4235 0 2 if (defined $length and not $length =~ /^\-?\d+$/)
4237 0 0 if $self->_warnings_is_enabled
4238 0 0 if scalar @list
4243 1 1 if (scalar @_ > 2) { }
1 0 elsif (not scalar @_) { }
4255 0 0 if defined $offset and defined $length
4256 0 0 if defined $offset
4278 0 1 if (Want::want('LIST')) { }
4292 0 27 unless defined $num
4293 0 27 unless CORE::length $num
4305 1 2 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Array')) { }
2 0 elsif (&Scalar::Util::reftype($other) eq 'ARRAY') { }
4326 0 4 unless defined $str
4350 1 0 if @_ and &Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY'
4370 0 1 if (@_) { }
4373 0 0 unless defined $pos
4386 1 1 unless defined $pos
4425 0 0 if (@_) { }
4428 0 0 unless defined $pos
4429 0 0 if $pos >= $self->elements->length - 1
4435 0 0 if $self->eof
4444 4 9 if (want(('LVALUE', 'ASSIGN'))) { }
5 4 elsif (want('RVALUE')) { }
4447 0 4 unless ($a =~ /^\d+$/)
4472 0 0 if (@_) { }
4475 0 0 unless defined $pos
4476 0 0 if $pos <= 0
4482 0 0 if $pos > 0
4484 0 0 if $pos <= 0
4502 0 8 unless CORE::length $this
4504 6 2 $is_ref ? :
4512 7 18 if ($is_ref and &Scalar::Util::refaddr($elems->[$i]) eq $ref or not $is_ref and $val eq $this)
4563 0 0 if (want('OBJECT')) { }
4581 0 0 if (want('OBJECT')) { }
4610 0 3 if (not defined $$self) { }
0 3 elsif (not defined $other) { }
4621 0 3 if ($swap) { }
4637 0 1 $swap ? :
4639 0 1 if ($@)
4650 1 4055 if (&Scalar::Util::blessed($other) and ref $other eq ref $self) { }
4669 59901 1929 if (ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')) { }
0 1929 elsif (ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')) { }
0 1929 elsif (ref $_[0]) { }
1929 0 elsif (@_) { }
4679 0 0 if $this->_warnings_is_enabled
4697 2 1 ${$_[0];} ? :
4715 1 0 unless /[[:lower:]]/
4728 13 0 defined $4 ? :
5 13 defined $3 ? :
0 18 defined $2 ? :
4779 1 4 if (@_) { }
4801 0 2 if defined $pos
4829 1 0 ref $str eq 'Regexp' ? :
1 0 defined $str ? :
4841 0 0 ref $str eq 'Regexp' ? :
0 1 defined $str ? :
4853 1 0 ref $re eq 'Regexp' ? :
1 0 defined $re ? :
4868 0 2 if (not CORE::length $n) { }
0 2 elsif (not $n =~ /^\-?\d+$/) { }
4870 0 0 if $self->_warnings_is_enabled
4874 0 0 if $self->_warnings_is_enabled
4877 1 1 if ($n < 0) { }
4888 0 0 @_ > 1 ? :
4897 3 1 ref $re eq 'Regexp' ? :
4 0 defined $re ? :
4913 1 1 if defined $pos
4921 0 1 ref $str eq 'Regexp' ? :
1 0 defined $str ? :
4936 0 3815 if (ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')) { }
0 3815 elsif (ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')) { }
0 3815 elsif (ref $_[0]) { }
4946 0 0 if $self->_warnings_is_enabled
4961 0 2 unless scalar @_
4964 0 2 if (defined $limit and $limit =~ /^\d+$/) { }
4972 2 0 if (Want::want('OBJECT') or Want::want('SCALAR')) { }
0 0 elsif (Want::want('LIST')) { }
4990 1 1 if defined $length and defined $replacement
4991 1 0 if defined $length
5008 0 2 defined $str ? :
5028 0 2 unless defined $arr
5029 0 2 if &Scalar::Util::reftype($arr) ne 'ARRAY'
5037 0 9 unless defined $num
5038 0 9 unless CORE::length $num
5096 0 2 $swap ? :
5098 0 2 if $@ and $self->_warnings_is_enabled
5099 0 2 if $@
5101 1 1 if ($res =~ /^$RE{'num'}{'real'}$/) { }
5500 0 145 unless CORE::length $num
5501 1 144 if POSIX::isinf($num)
5502 1 143 if POSIX::isnan($num)
5514 73 70 if ($self->{'lang'}) { }
70 0 elsif ($curr_locale and my $lconv = POSIX::localeconv()) { }
5527 73 0 if (index($_[0], '.') == -1) { }
5533 0 73 if (not $loc and exists $$SUPPORTED_LOCALES{$_[0]})
5538 0 0 if ($loc = POSIX::setlocale(&POSIX::LC_ALL, $supported))
5558 73 0 if (my $loc = &$try_locale($self->{'lang'})) { }
5566 73 0 if $lconv and scalar keys %$lconv
5573 0 73 if ($Nice::Try::WANTARRAY) { }
73 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 73 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 73 if ($Nice::Try::DIED)
5576 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 73 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5580 70 0 if scalar keys %$lconv
5627 178 1681 if CORE::length $self->{$prop}
5630 70 2936 if (defined $default->{$lconv_prop}) { }
5635 0 0 if (exists $numerics->{$lconv_prop} and CORE::length $default->{$lconv_prop} and $default->{$lconv_prop} < 0)
5669 248 1611 if ($self->$prop->defined) { }
5683 858 2574 if exists $skip->{$lconv_prop}
5686 1296 782 if (not CORE::length $opts->{$lconv_prop} and exists $numerics->{$lconv_prop})
5697 1 142 if ($Nice::Try::WANTARRAY) { }
142 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 143 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 143 if ($Nice::Try::DIED)
5701 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 143 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5705 1 142 if (not $num =~ /^$RE{'num'}{'real'}$/) { }
5714 1 142 unless defined $self->{'_number'}
5716 1 142 if ($Nice::Try::WANTARRAY) { }
142 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 143 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 143 if ($Nice::Try::DIED)
5719 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 142 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
5731 2 2 +(shift())->{'_number'} ? :
5744 71 2 @_ ? :
5745 0 73 if POSIX::isinf($num)
5746 0 73 if POSIX::isnan($num)
5757 7 149 &Scalar::Util::blessed($other) ? :
5758 10 146 $swap ? :
5759 43 113 if ($opts->{'return_object'}) { }
110 3 elsif ($opts->{'boolean'}) { }
5763 0 43 if $@ and $self->_warnings_is_enabled
5764 0 43 if $@
5765 1 42 if $opts->{'type'} eq 'scalar'
5766 5 37 if POSIX::isinf($res)
5767 4 33 if POSIX::isnan($res)
5769 33 0 if defined $res
5776 0 110 if $@ and $self->_warnings_is_enabled
5777 0 110 if $@
5802 0 2 @_ && $_[0] =~ /^\d+$/ ? :
5806 0 2 unless defined $num
5814 0 2 unless defined $res
5817 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)
5820 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'))
5831 0 1 unless defined $num
5837 0 1 unless defined $res
5840 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)
5843 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'))
5851 0 1 @_ && $_[0] =~ /^\d+$/ ? :
5852 0 1 @_ ? :
5856 0 1 unless defined $num
5866 0 1 unless defined $res
5869 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)
5872 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'))
5881 0 1 unless defined $num
5890 0 1 unless defined $res
5893 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)
5896 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'))
5905 0 0 unless defined $num
5911 0 0 unless defined $res
5914 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)
5917 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'))
5927 0 1 unless defined $binary and CORE::length $binary
5932 0 1 unless defined $res
5935 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)
5938 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'))
5945 0 1 unless defined $hex and CORE::length $hex
5949 0 1 unless defined $res
5952 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)
5955 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'))
6012 0 3957 if (@_) { }
6014 0 0 if (@_ == 1 and $self->_is_hash($_[0])) { }
0 0 elsif (not @_ % 2) { }
6041 6152 45289 if defined $hash->{$prop}
6045 3957 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 3957 CORE::length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 3957 if ($Nice::Try::DIED)
6048 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
3957 0 $Nice::Try::WANTARRAY ? :
3957 0 if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
6069 1 0 CORE::length $_[1] ? :
6079 0 0 unless defined $num
6085 0 0 unless defined $res
6090 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)
6093 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'))
6122 0 1 unless defined $num
6131 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)
6134 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'))
6143 20 9 if ref $_[-1] eq 'HASH'
6144 20 9 $opts->{'posix'} ? :
6145 4 25 @_ ? :
6146 4 25 defined $val ? :
6150 0 29 if $@
6151 0 29 if $@
6152 0 29 unless defined $res
6153 0 29 if POSIX::isinf($res)
6154 0 29 if POSIX::isnan($res)
6162 3957 53560 if (@_)
6165 949 3008 if $self->_is_object($val) and $val->isa('Module::Generic::Scalar')
6167 3957 0 if ($val ne $self->{$prop} or not defined $val)
6172 0 3957 unless $self->formatter($self->new_formatter)
6185 0 0 if ($code)
6191 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)
6195 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'))
6250 0 1 $swap ? :
6253 0 1 if $@
6254 0 1 if $@
6255 0 1 if POSIX::isnormal($res)
6256 1 0 if POSIX::isinf($res)
6257 0 0 if POSIX::isnan($res)
6266 5 2 if ref $_[-1] eq 'HASH'
6267 5 2 $opts->{'posix'} ? :
6268 3 4 @_ ? :
6269 3 4 defined $val ? :
6273 0 7 if $@
6274 0 7 unless defined $res
6275 3 4 if POSIX::isnormal($res)
6276 4 0 if POSIX::isinf($res)
6277 0 0 if POSIX::isnan($res)
6286 0 0 if (want('OBJECT'))
6360 148 0 if scalar @_
6361 0 148 if &Scalar::Util::reftype($data) ne 'HASH'
6363 0 148 if $tied
6408 0 1 if ref $code ne 'CODE'
6411 0 4 unless defined &$code($k, $v)
6424 0 1 if ref $code ne 'CODE'
6428 0 4 unless defined &$code($k, $self->{$k})
6441 1 1 if ref $_[-1] eq 'HASH'
6445 1 1 if ($opts->{'pretty'}) { }
6466 0 0 if ref $code ne 'CODE'
6474 0 0 if ref $code ne 'CODE'
6482 0 0 if ref $code ne 'CODE'
6491 0 2 if not $hash or &Scalar::Util::reftype($hash) ne 'HASH'
6494 1 1 if @_ and ref $_[-1] eq 'HASH'
6495 1 1 unless exists $opts->{'overwrite'}
6504 2 2 if @_ and ref $_[-1] eq 'HASH'
6509 6 8 if exists $to->{$k} and not $p->{'overwrite'}
6510 2 6 if (ref $this->{$k} eq 'HASH' or &Scalar::Util::blessed($this->{$k}) and $this->{$k}->isa('Module::Generic::Hash')) { }
6515 0 2 if (exists $seen->{$addr}) { }
6522 1 1 unless &Scalar::Util::reftype($to->{$k}) eq 'HASH'
6549 1 0 if @_ and ref $_[0] eq 'CODE'
6551 1 0 if &Scalar::Util::reftype($_[-1]) eq 'HASH'
6552 1 0 if ($code) { }
6554 1 0 if ($opts->{'sort'}) { }
6565 0 0 if ($opts->{'sort'}) { }
6617 0 4 if (wantarray) { }
6628 0 4 wantarray ? :
6636 7 5 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')) { }
5 0 elsif ($other =~ /^$RE{'num'}{'real'}$/) { }
6648 2 10 $swap ? :
6661 2 0 if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')) { }
0 0 elsif (&Scalar::Util::reftype($other) eq 'HASH') { }
6696 148 0 if @_
6697 0 148 if (&Scalar::Util::reftype($opts) ne 'HASH')
6699 0 0 if $self->_warnings_is_enabled
6703 148 0 if &Scalar::Util::reftype($opts->{'disable'})
6735 0 1 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6752 0 3 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6770 1356 22 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6789 0 26 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6806 88 0 ref $self->{'ITERATOR'} ? :
6815 0 0 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6832 891 3476 if ($self->_exclude($caller) or not $self->{'enable'}) { }
6870 0 0 if ($arg{'pkg'})
6873 0 0 ref $ok eq 'ARRAY' ? :
6888 0 0 if $data->{'readonly'} and $pkg ne 'Module::Generic::Tie'
6890 0 0 unless ($data->{'perms'} & 2)
6892 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6911 0 0 if $pkg eq 'Module::Generic'
6914 0 0 if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
6916 0 0 unless ($data->{'perms'} & 2)
6918 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6927 0 0 if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
6929 0 0 unless ($data->{'perms'} & 4)
6932 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6944 0 0 if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
6948 0 0 unless ($data->{'perms'} & 4)
6952 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6964 0 0 unless ($data->{'perms'} & 4)
6968 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6984 0 0 unless ($data->{'perms'} & 4)
6988 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}
6998 0 0 if $_[0] eq '__priv__'
7002 0 0 unless ($data->{'perms'} & 2)
7005 0 0 if $pkg eq 'Module::Generic'
7007 0 0 unless grep /^$pkg$/, @{$$data{'pkg'};}