| line |
true |
false |
branch |
|
106
|
0 |
6 |
if (defined $path)
|
|
117
|
0 |
0 |
if ($@)
|
|
127
|
0 |
0 |
if ($@)
|
|
129
|
0 |
0 |
unless $SILENT_AUTOLOAD
|
|
143
|
0 |
133 |
if (defined ${"${class}::OBJECT_PERMS";})
|
|
155
|
0 |
133 |
if ($MOD_PERL)
|
|
169
|
0 |
133 |
if (defined ${"${class}::LOG_DEBUG";})
|
|
183
|
0 |
0 |
if scalar @_ == 1 and ref $_[0] eq 'HASH'
|
|
193
|
0 |
0 |
if substr($meth, 0, 1) eq '_'
|
|
195
|
0 |
0 |
if ($@)
|
|
203
|
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)) { }
|
|
211
|
0 |
0 |
if ($rv->can('as_hash') and overload::Overloaded($rv) and overload::Method($rv, '""')) { }
|
|
|
0 |
0 |
elsif ($rv->can('as_hash')) { }
|
|
224
|
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") { }
|
|
226
|
0 |
0 |
if scalar keys %$rv
|
|
234
|
0 |
0 |
$self->_is_object($this_ref) && $this_ref->can('as_hash') ? :
|
|
237
|
0 |
0 |
if scalar @$arr
|
|
241
|
0 |
0 |
if length $rv
|
|
291
|
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)
|
|
294
|
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'))
|
|
316
|
0 |
0 |
if ($colour =~ /^[A-Z]+([A-Z\s]+)*$/) { }
|
|
|
0 |
0 |
elsif ($colour =~ /^\d{9}$/) { }
|
|
|
0 |
0 |
elsif ($colour =~ /^[A-F0-9]+$/) { }
|
|
318
|
0 |
0 |
unless (scalar keys %$COLOUR_NAME_TO_RGB)
|
|
324
|
0 |
0 |
if /^[[:blank:]]*$/
|
|
325
|
0 |
0 |
if /^\=/
|
|
331
|
0 |
0 |
if (exists $$COLOUR_NAME_TO_RGB{lc $colour})
|
|
377
|
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)
|
|
385
|
0 |
0 |
if ($red_ok)
|
|
387
|
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)
|
|
396
|
0 |
0 |
if ($blue_ok)
|
|
398
|
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)
|
|
416
|
0 |
12 |
unless $self->_is_hash($opts)
|
|
419
|
0 |
12 |
if length $opts->{'message'} and not length $opts->{'text'}
|
|
420
|
0 |
12 |
unless length $opts->{'text'}
|
|
474
|
1 |
0 |
if (ref $bg eq 'HASH')
|
|
493
|
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) { }
|
|
505
|
3 |
14 |
if (length $+{'rgb_type'} and length $+{'red'} and length $+{'green'} and length $+{'blue'}) { }
|
|
510
|
1 |
2 |
if ($+{'opacity'} or $light) { }
|
|
514
|
0 |
0 |
$light ? :
|
|
|
1 |
0 |
length $+{'opacity'} ? :
|
|
531
|
0 |
0 |
if ($+{'opacity'}) { }
|
|
546
|
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)) { }
|
|
562
|
1 |
0 |
if ($+{'opacity'})
|
|
567
|
1 |
0 |
if ($opts->{'bgcolour'})
|
|
610
|
0 |
0 |
if ($opts->{'colour'} or $opts->{'color'} or $opts->{'fgcolour'} or $opts->{'fgcolor'} or $opts->{'fg_colour'} or $opts->{'fg_color'})
|
|
615
|
11 |
1 |
if (scalar keys %$col_ref) { }
|
|
626
|
0 |
6 |
if ($opts->{'bgcolour'} or $opts->{'bgcolor'} or $opts->{'bg_colour'} or $opts->{'bg_color'})
|
|
631
|
6 |
0 |
if (scalar keys %$col_ref) { }
|
|
642
|
11 |
1 |
if ($opts->{'style'})
|
|
650
|
12 |
0 |
if (exists $$styles{lc $s})
|
|
655
|
12 |
0 |
if scalar @$params8
|
|
659
|
11 |
1 |
if scalar @$params8
|
|
660
|
11 |
1 |
if scalar @$params
|
|
663
|
1 |
11 |
if (scalar @$params and $opts->{'text'} =~ /\n+/) { }
|
|
671
|
0 |
2 |
unless length $text_parts->[$i]
|
|
680
|
10 |
1 |
if scalar @$params
|
|
717
|
20 |
194 |
if ($c eq $open) { }
|
|
|
147 |
47 |
elsif (scalar keys %$def) { }
|
|
720
|
9 |
11 |
if (substr($$chunk, $i, 3) eq "$open/$close") { }
|
|
|
2 |
9 |
elsif (scalar keys %$def) { }
|
|
724
|
9 |
0 |
length $def->{'text'} ? :
|
|
727
|
2 |
7 |
if ($opts->{'is_child'}) { }
|
|
735
|
7 |
0 |
if length $res
|
|
757
|
256 |
9 |
unless substr($$chunk, $j, 1) eq $close
|
|
761
|
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) { }
|
|
778
|
0 |
4 |
if ($@ or ref $def ne 'HASH') { }
|
|
787
|
9 |
0 |
unless ($err)
|
|
793
|
0 |
9 |
unless (length $this_def)
|
|
816
|
0 |
5 |
$opts->{'is_child'} ? :
|
|
828
|
15 |
0 |
if ($colour =~ /^[A-Za-z]+([\w\-]+)*([[:blank:]]+\w+)?$/) { }
|
|
|
0 |
0 |
elsif ($colour =~ /^\d{9}$/) { }
|
|
|
0 |
0 |
elsif ($colour =~ /^[A-F0-9]+$/) { }
|
|
831
|
1 |
14 |
unless (scalar keys %$COLOUR_NAME_TO_RGB)
|
|
836
|
0 |
1 |
if ($@)
|
|
841
|
14 |
1 |
if (exists $COLOUR_NAME_TO_RGB->{$colour}) { }
|
|
887
|
3 |
0 |
if ($pref =~ /^(?:(?<style1>$style_re)[[:blank:]]+)?(?<fg_colour>$colour_re)(?:[[:blank:]]+(?<style2>$style_re))?(?:[[:blank:]]+on[[:blank:]]+(?<bg_colour>$colour_re))?$/i) { }
|
|
907
|
135 |
0 |
if (@_)
|
|
911
|
0 |
135 |
if $OPTIMIZE_MESG_SUB
|
|
912
|
1 |
134 |
if ($this->{'debug'} and not $this->{'debug_level'})
|
|
930
|
0 |
0 |
if scalar @_ > 1 and ref $_[-1] eq 'HASH'
|
|
935
|
0 |
0 |
if length $opts->{'depth'}
|
|
948
|
0 |
0 |
if scalar @_ > 1 and ref $_[-1] eq 'HASH'
|
|
950
|
0 |
0 |
if (scalar keys %$opts) { }
|
|
984
|
0 |
0 |
if (ref $data) { }
|
|
1003
|
0 |
0 |
if (@_)
|
|
1005
|
0 |
0 |
if $_[0] =~ /^\-?\d+$/
|
|
1006
|
0 |
0 |
if @_
|
|
1016
|
1 |
0 |
if (@_)
|
|
1019
|
0 |
1 |
if (&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')) { }
|
|
|
0 |
1 |
elsif (ref $_[0] eq 'HASH') { }
|
|
1029
|
0 |
1 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
|
|
1031
|
0 |
1 |
if $this->{'error_max_length'} > 0 and length $args->{'message'} > $this->{'error_max_length'}
|
|
1052
|
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)
|
|
1055
|
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'))
|
|
1057
|
0 |
1 |
if ($no_use_warnings)
|
|
1063
|
0 |
0 |
unless ($call_offset > 0 and $call_data[0] ne $class and (caller $call_offset - 1)[0] eq $class)
|
|
1069
|
0 |
0 |
if $call_data[9] or $call_offset > 0 and (caller $call_offset - 1)[0] ne $class
|
|
1080
|
0 |
1 |
if $MOD_PERL
|
|
1082
|
0 |
1 |
if $r
|
|
1084
|
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'}) { }
|
|
1092
|
0 |
0 |
if (my $log_handler = $r->get_handlers('PerlPrivateErrorHandler')) { }
|
|
1100
|
0 |
0 |
if $should_display_warning
|
|
1108
|
0 |
0 |
$@ ? :
|
|
1113
|
0 |
1 |
if ($r) { }
|
|
1115
|
0 |
0 |
if $should_display_warning
|
|
1120
|
0 |
0 |
$@ ? :
|
|
|
0 |
1 |
if $should_display_warning
|
|
1124
|
1 |
0 |
if (overload::Overloaded($self))
|
|
1139
|
1 |
0 |
if ($overload_meth_name eq $call_sub)
|
|
1155
|
0 |
0 |
if (not $args->{'no_return_null_object'} and want('OBJECT'))
|
|
1162
|
0 |
0 |
ref $self ? :
|
|
1173
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
1175
|
0 |
0 |
wantarray ? :
|
|
1183
|
264 |
0 |
unless length $this->{'verbose'}
|
|
1184
|
130 |
134 |
unless length $this->{'debug'}
|
|
1185
|
264 |
0 |
unless defined $this->{'version'}
|
|
1194
|
0 |
264 |
if ($this->{'_data_repo'})
|
|
1196
|
0 |
0 |
unless $$this{$this->{'_data_repo'}}
|
|
1199
|
0 |
264 |
if @_ == 1 and not defined $_[0]
|
|
1200
|
70 |
194 |
if (@_)
|
|
1204
|
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) { }
|
|
1210
|
68 |
0 |
if exists $h->{'debug'}
|
|
1212
|
67 |
1 |
if defined $debug_value
|
|
1239
|
131 |
1764 |
if ($vals->[$i] eq 'debug')
|
|
1253
|
947 |
0 |
if (defined $meth) { }
|
|
|
0 |
0 |
elsif ($this->{'_init_strict_use_sub'}) { }
|
|
|
0 |
0 |
elsif (exists $data->{$name}) { }
|
|
1275
|
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'}) { }
|
|
1279
|
0 |
0 |
if (not &Scalar::Util::blessed($val)) { }
|
|
|
0 |
0 |
elsif (not $val->isa($thisPack)) { }
|
|
1290
|
0 |
0 |
if (ref $data->{$name} eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $data->{$name} eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $data->{$name} eq 'SCALAR') { }
|
|
1292
|
0 |
0 |
if &Scalar::Util::reftype($val) ne 'ARRAY'
|
|
1296
|
0 |
0 |
if &Scalar::Util::reftype($val) ne 'HASH'
|
|
1300
|
0 |
0 |
if &Scalar::Util::reftype($val) ne 'SCALAR'
|
|
1308
|
0 |
0 |
if $this->{'_init_strict'}
|
|
1314
|
0 |
0 |
if ($OPTIMIZE_MESG_SUB and not $this->{'verbose'} and not $this->{'debug'})
|
|
1316
|
0 |
0 |
if (defined &{"${pkg}::message";})
|
|
1318
|
0 |
0 |
unless defined &{"${pkg}::message_off";}
|
|
1352
|
0 |
218 |
if $MOD_PERL
|
|
1353
|
218 |
0 |
if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
|
|
1360
|
218 |
0 |
unless $ref
|
|
1363
|
0 |
0 |
if ref $ref->[-1] eq 'HASH'
|
|
1371
|
0 |
0 |
unless $stackFrame =~ /^\d+$/
|
|
1372
|
0 |
0 |
if $stackFrame
|
|
1373
|
0 |
0 |
if (caller 1)[3] eq 'Module::Generic::messagef' or (caller 1)[3] eq 'Module::Generic::message_colour'
|
|
1375
|
0 |
0 |
if (caller 2)[3] eq 'Module::Generic::messagef_colour'
|
|
1379
|
0 |
0 |
if (ref $this->{'_message_frame'} eq 'HASH')
|
|
1381
|
0 |
0 |
if (exists $this->{'_message_frame'}{$sub2})
|
|
1384
|
0 |
0 |
if ($frameNo > 0)
|
|
1392
|
0 |
0 |
if ($sub2 eq 'message')
|
|
1401
|
0 |
0 |
if ($opts->{'message'}) { }
|
|
1403
|
0 |
0 |
if (ref $opts->{'message'} eq 'ARRAY') { }
|
|
1405
|
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
|
|
1414
|
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
|
|
1432
|
0 |
0 |
exists $opts->{'level'} ? :
|
|
|
0 |
0 |
$_[0] =~ /^\d+$/ ? :
|
|
1434
|
0 |
0 |
if $opts->{'type'}
|
|
1440
|
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")) { }
|
|
1443
|
0 |
0 |
if (my $log_handler = $r->get_handlers('PerlPrivateLogHandler')) { }
|
|
1486
|
0 |
0 |
unless $opts->{'no_encoding'}
|
|
1501
|
0 |
0 |
if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
|
|
1503
|
0 |
0 |
$_[0] =~ /^\d+$/ ? :
|
|
1505
|
0 |
0 |
if (scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'})
|
|
1510
|
0 |
0 |
if not defined $level and exists $opts->{'level'}
|
|
1512
|
0 |
0 |
if ($opts->{'message'}) { }
|
|
1514
|
0 |
0 |
if (ref $opts->{'message'} eq 'ARRAY') { }
|
|
1516
|
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
|
|
1525
|
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
|
|
1529
|
0 |
0 |
if defined $level
|
|
1541
|
0 |
0 |
if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
|
|
1543
|
0 |
0 |
$_[0] =~ /^\d+$/ ? :
|
|
1545
|
0 |
0 |
if (scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'} || exists $_[-1]{'colour'})
|
|
1549
|
0 |
0 |
if not defined $level and exists $opts->{'level'}
|
|
1551
|
0 |
0 |
if ($opts->{'message'}) { }
|
|
1553
|
0 |
0 |
if (ref $opts->{'message'} eq 'ARRAY') { }
|
|
1569
|
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'} ? :
|
|
1571
|
0 |
0 |
if $opts->{'colour'}
|
|
1574
|
0 |
0 |
if defined $level
|
|
1585
|
0 |
0 |
if ($this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';})
|
|
1589
|
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'})
|
|
1607
|
218 |
0 |
if (@_)
|
|
1609
|
0 |
218 |
unless ($_[0] =~ /^\d/)
|
|
1612
|
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) { }
|
|
1629
|
218 |
0 |
if ($_[0] =~ /^\d+$/ || ref $_[-1] eq 'HASH' && exists $_[-1]{'level'} and @_ > 1)
|
|
1633
|
218 |
0 |
if ($_[0] =~ /^\d+$/) { }
|
|
|
0 |
0 |
elsif (ref $_[-1] eq 'HASH' and exists $_[-1]{'level'}) { }
|
|
1642
|
0 |
218 |
if (ref ${"${class}::DEBUG_TARGET";} eq 'ARRAY')
|
|
1644
|
0 |
0 |
scalar @${"${class}::DEBUG_TARGET";} ? :
|
|
1646
|
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) { }
|
|
1669
|
0 |
0 |
unless exists $this->{'_message_frame'}
|
|
1671
|
0 |
0 |
if (@_)
|
|
1674
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (not @_ % 2) { }
|
|
|
0 |
0 |
elsif (scalar @_ == 1) { }
|
|
1689
|
0 |
0 |
if index($sub, '::') != -1
|
|
1705
|
0 |
0 |
unless $io
|
|
1707
|
0 |
0 |
if not &Scalar::Util::openhandle($io) and $io
|
|
1723
|
0 |
0 |
if (@_) { }
|
|
|
0 |
0 |
elsif (${"${class}::LOG_DEBUG";} and not $self->_set_get('log_io') and ${"${class}::DEB_LOG";}) { }
|
|
1733
|
0 |
0 |
unless ($DEBUG_LOG_IO)
|
|
1749
|
0 |
0 |
if (@_)
|
|
1752
|
0 |
0 |
if ($flag) { }
|
|
|
0 |
0 |
elsif (not $flag || $this->{'verbose'} || $this->{'debug'}) { }
|
|
1754
|
0 |
0 |
if (defined &{"${pkg}::message_off";}) { }
|
|
1767
|
0 |
0 |
unless defined &{"${pkg}::message_off";}
|
|
1806
|
0 |
0 |
unless ref $err and &Scalar::Util::blessed($err)
|
|
1808
|
0 |
0 |
if (want('OBJECT'))
|
|
1823
|
0 |
0 |
if ref $_[-1] eq 'HASH'
|
|
1825
|
0 |
0 |
if (@_ == 2)
|
|
1830
|
0 |
0 |
unless $opts->{'file'}
|
|
1832
|
0 |
0 |
if $opts->{'encoding'}
|
|
1834
|
0 |
0 |
ref $opts->{'data'} eq 'SCALAR' ? :
|
|
|
0 |
0 |
unless (defined $fh->print(ref $opts->{'data'} eq 'SCALAR' ? ${$$opts{'data'};} : $opts->{'data'}))
|
|
1847
|
0 |
0 |
if (@_)
|
|
1851
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
1862
|
0 |
0 |
@_ ? :
|
|
1873
|
0 |
0 |
if (defined $io) { }
|
|
1875
|
0 |
0 |
if substr($_, -3) eq '.pm'
|
|
1876
|
0 |
0 |
unless $io->close
|
|
1883
|
0 |
0 |
wantarray ? :
|
|
1894
|
0 |
0 |
if (@_)
|
|
1898
|
0 |
0 |
if $OPTIMIZE_MESG_SUB
|
|
1905
|
0 |
0 |
unless @_ >= 2 and @_ <= 3
|
|
1908
|
0 |
0 |
if (@_ == 3 and ref $_[1]) { }
|
|
1917
|
0 |
0 |
if not ref $obj and index($obj, '::') == -1
|
|
1920
|
0 |
0 |
if (&Scalar::Util::blessed($obj) and $ref = $obj->can($meth))
|
|
1926
|
0 |
0 |
if (index($meth, '::') != -1)
|
|
1931
|
0 |
0 |
if defined &{"${class}::$meth";}
|
|
1934
|
0 |
0 |
if defined $ref
|
|
1937
|
0 |
0 |
if $level >= 10
|
|
1942
|
0 |
0 |
if (@{"${class}::ISA";})
|
|
1949
|
0 |
0 |
if defined $ref
|
|
1956
|
0 |
0 |
if ($class ne 'Module::Generic' and $meth ne 'EXTRA_AUTOLOAD' and defined &{"${class}::AUTOLOAD";})
|
|
1991
|
0 |
0 |
if $@
|
|
1993
|
0 |
0 |
if scalar @_ == 1 and not defined $_[0]
|
|
1994
|
0 |
0 |
@_ ? :
|
|
1995
|
0 |
0 |
if $o->can('debug')
|
|
1996
|
0 |
0 |
unless defined $o
|
|
1998
|
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)
|
|
2001
|
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'))
|
|
2017
|
0 |
0 |
unless $obj and $pkg
|
|
2018
|
0 |
0 |
unless $self->_is_object($obj)
|
|
2043
|
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)
|
|
2046
|
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'))
|
|
2053
|
60449 |
0 |
if (&Scalar::Util::reftype($self) eq 'HASH') { }
|
|
|
0 |
0 |
elsif (&Scalar::Util::reftype($self) eq 'GLOB') { }
|
|
|
0 |
0 |
elsif (not ref $self) { }
|
|
2091
|
0 |
0 |
unless length $str
|
|
2106
|
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})$]) { }
|
|
2109
|
0 |
0 |
unless (length $zone)
|
|
2121
|
0 |
0 |
if length $zone == 3
|
|
2164
|
0 |
4 |
$this->{'_data_repo'} ? :
|
|
2165
|
4 |
0 |
if (@_)
|
|
2167
|
4 |
0 |
@_ == 1 ? :
|
|
2170
|
0 |
4 |
if (wantarray) { }
|
|
2172
|
0 |
0 |
if (ref $data->{$field} eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $data->{$field} eq 'HASH') { }
|
|
2196
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2197
|
0 |
0 |
if (@_)
|
|
2199
|
0 |
0 |
@_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
|
|
2210
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2211
|
0 |
0 |
if (@_)
|
|
2213
|
0 |
0 |
@_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
|
|
2216
|
0 |
0 |
if ($o) { }
|
|
2218
|
0 |
0 |
unless ($self->_is_object($o))
|
|
2231
|
0 |
0 |
unless ($data->{$field} and $self->_is_object($data->{$field}))
|
|
2244
|
0 |
430 |
$this->{'_data_repo'} ? :
|
|
2245
|
430 |
0 |
if (@_)
|
|
2249
|
0 |
430 |
if (&Scalar::Util::blessed($val) and $val->isa('JSON::PP::Boolean') || $val->isa('Module::Generic::Boolean')) { }
|
|
|
0 |
430 |
elsif (&Scalar::Util::reftype($val) eq 'SCALAR') { }
|
|
|
0 |
430 |
elsif (lc $val eq 'true' or lc $val eq 'false') { }
|
|
2256
|
0 |
0 |
$$val ? :
|
|
2260
|
0 |
0 |
lc $val eq 'true' ? :
|
|
2264
|
282 |
148 |
$val ? :
|
|
2270
|
0 |
430 |
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'))
|
|
2281
|
0 |
0 |
$val ? :
|
|
2292
|
0 |
0 |
if ($def->{'_class'}) { }
|
|
2304
|
0 |
0 |
unless (Class::Load::is_class_loaded($class))
|
|
2338
|
0 |
0 |
$call_sub eq '_set_get_class' ? :
|
|
2346
|
0 |
0 |
unless (exists $type2func->{$type})
|
|
2352
|
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') { }
|
|
2356
|
0 |
0 |
unless ($info->{'class'})
|
|
2367
|
0 |
0 |
if (not exists $info->{'definition'}) { }
|
|
|
0 |
0 |
elsif (ref $this_def ne 'HASH') { }
|
|
2403
|
0 |
0 |
if $@
|
|
2422
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2423
|
0 |
0 |
if scalar @_ == 1 and not defined $_[0]
|
|
2424
|
0 |
0 |
if (ref $def ne 'HASH')
|
|
2432
|
0 |
0 |
if (@_)
|
|
2443
|
0 |
0 |
unless ($data->{$field})
|
|
2457
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2458
|
0 |
0 |
if (ref $def ne 'HASH')
|
|
2463
|
0 |
0 |
if scalar @_ == 1 and not defined $_[0]
|
|
2466
|
0 |
0 |
if (@_)
|
|
2469
|
0 |
0 |
unless $self->_set_get_array($ref)
|
|
2473
|
0 |
0 |
if (ref $ref->[$i] ne 'HASH')
|
|
2490
|
0 |
1 |
$this->{'_data_repo'} ? :
|
|
2491
|
0 |
1 |
if (@_)
|
|
2494
|
0 |
0 |
if ref $v ne 'CODE'
|
|
2505
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2506
|
0 |
0 |
if (@_)
|
|
2511
|
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)) { }
|
|
2518
|
0 |
0 |
unless $time->isa('DateTime')
|
|
2549
|
0 |
0 |
if ($@) { }
|
|
2560
|
0 |
0 |
if (not $data->{$field} and want('OBJECT'))
|
|
2573
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2575
|
0 |
0 |
if scalar @_ == 1 and not defined $_[0]
|
|
2576
|
0 |
0 |
if (@_)
|
|
2579
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (@_ % 2) { }
|
|
2603
|
0 |
129 |
$this->{'_data_repo'} ? :
|
|
2605
|
0 |
129 |
if scalar @_ == 1 and not defined $_[0]
|
|
2606
|
0 |
129 |
if (@_)
|
|
2609
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (@_ % 2) { }
|
|
2625
|
129 |
0 |
if ($data->{$field} and not $self->_is_object($data->{$field}))
|
|
2640
|
0 |
0 |
if @_ == 1 and not defined $_[0]
|
|
2641
|
0 |
0 |
if (@_) { }
|
|
2645
|
0 |
0 |
if (&Scalar::Util::reftype($_[0]) eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0]) { }
|
|
2671
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2672
|
0 |
0 |
unless (Class::Load::is_class_loaded($class))
|
|
2690
|
0 |
0 |
if $@
|
|
2693
|
0 |
0 |
if (@_)
|
|
2703
|
0 |
0 |
unless ($data->{$field} and $self->_is_object($data->{$field}))
|
|
2715
|
0 |
4 |
$this->{'_data_repo'} ? :
|
|
2716
|
0 |
4 |
if scalar @_ == 1 and not defined $_[0]
|
|
2717
|
3 |
1 |
if (@_)
|
|
2730
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2731
|
0 |
0 |
if (@_)
|
|
2733
|
0 |
0 |
if (ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])) { }
|
|
2751
|
0 |
3564 |
$this->{'_data_repo'} ? :
|
|
2754
|
3563 |
1 |
if (@_)
|
|
2756
|
3563 |
0 |
if (scalar @_ == 1) { }
|
|
2759
|
0 |
3563 |
if (not defined $_[0]) { }
|
|
|
3563 |
0 |
elsif (&Scalar::Util::blessed($_[0])) { }
|
|
2767
|
0 |
3563 |
unless $o->isa("$class")
|
|
2788
|
0 |
3564 |
if (not $data->{$field} and want('OBJECT'))
|
|
2808
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2809
|
0 |
0 |
if (@_)
|
|
2812
|
0 |
0 |
unless $self->_is_array($data_to_process)
|
|
2816
|
0 |
0 |
if ref $ref ne 'ARRAY'
|
|
2821
|
0 |
0 |
if (defined $ref->[$i]) { }
|
|
2823
|
0 |
0 |
unless ref $ref->[$i]
|
|
2824
|
0 |
0 |
if (&Scalar::Util::blessed($ref->[$i])) { }
|
|
|
0 |
0 |
elsif (ref $ref->[$i] eq 'HASH') { }
|
|
2826
|
0 |
0 |
unless $ref->[$i]->isa($class)
|
|
2844
|
0 |
0 |
unless defined $o
|
|
2861
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2862
|
0 |
0 |
if scalar @_ == 1 and not defined $_[0]
|
|
2863
|
0 |
0 |
if (@_)
|
|
2866
|
0 |
0 |
unless $self->_is_array($ref)
|
|
2870
|
0 |
0 |
if (defined $ref->[$i]) { }
|
|
2872
|
0 |
0 |
unless ref $ref->[$i]
|
|
2873
|
0 |
0 |
if (&Scalar::Util::blessed($ref->[$i])) { }
|
|
|
0 |
0 |
elsif (ref $ref->[$i] eq 'HASH') { }
|
|
2875
|
0 |
0 |
unless $ref->[$i]->isa($class)
|
|
2907
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2908
|
0 |
0 |
if scalar @_ == 1 and not defined $_[0]
|
|
2909
|
0 |
0 |
if (@_)
|
|
2911
|
0 |
0 |
scalar @_ == 1 && UNIVERSAL::isa($_[0], 'ARRAY') ? :
|
|
2920
|
0 |
0 |
unless ($data->{$field} and $self->_is_object($data->{$field}))
|
|
2935
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
2936
|
0 |
0 |
if (@_)
|
|
2938
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { }
|
|
2963
|
0 |
4 |
$this->{'_data_repo'} ? :
|
|
2964
|
0 |
4 |
if (@_)
|
|
2966
|
0 |
0 |
@_ == 1 ? :
|
|
2969
|
0 |
0 |
if ref $val eq 'HASH' or ref $val eq 'ARRAY'
|
|
2980
|
0 |
55442 |
$this->{'_data_repo'} ? :
|
|
2981
|
3630 |
51812 |
if (@_)
|
|
2984
|
0 |
3630 |
if (ref $val eq 'SCALAR' or UNIVERSAL::isa($val, 'SCALAR')) { }
|
|
|
0 |
3630 |
elsif (ref $val) { }
|
|
2998
|
3434 |
196 |
if (ref $o) { }
|
|
3009
|
55442 |
0 |
if (not $self->_is_object($data->{$field}) or $self->_is_object($data->{$field}) and ref $data->{$field} ne ref $self)
|
|
3015
|
49053 |
6389 |
if (not $v->defined) { }
|
|
3017
|
1444 |
47609 |
if (Want::want('OBJECT')) { }
|
|
3038
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
3039
|
0 |
0 |
if (@_)
|
|
3041
|
0 |
0 |
if (ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])) { }
|
|
3050
|
0 |
0 |
if (not $data->{$field} and want('OBJECT'))
|
|
3065
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
3066
|
0 |
0 |
if (@_)
|
|
3070
|
0 |
0 |
unless $self->_is_class_loaded('URI')
|
|
3072
|
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)
|
|
3075
|
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'))
|
|
3078
|
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) { }
|
|
3085
|
0 |
0 |
unless $data->{$field}->has_recognized_scheme
|
|
3111
|
0 |
0 |
unless ($this->{'__dbh'})
|
|
3113
|
0 |
0 |
unless ${"${class}::DB_DSN";}
|
|
3117
|
0 |
0 |
if length ${"${class}::DB_RAISE_ERROR";}
|
|
3118
|
0 |
0 |
if length ${"${class}::DB_AUTO_COMMIT";}
|
|
3119
|
0 |
0 |
if length ${"${class}::DB_PRINT_ERROR";}
|
|
3120
|
0 |
0 |
if length ${"${class}::DB_SHOW_ERROR_STATEMENT";}
|
|
3121
|
0 |
0 |
if length ${"${class}::DB_CLIENT_ENCODING";}
|
|
3124
|
0 |
0 |
if ${"${class}::DB_SERVER_PREPARE";}
|
|
3150
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic')
|
|
3157
|
0 |
0 |
if ($sub eq 'Module::Generic::AUTOLOAD')
|
|
3160
|
0 |
0 |
if ($MOD_PERL) { }
|
|
3172
|
0 |
0 |
if (index($meth, '::') != -1)
|
|
3179
|
0 |
0 |
if ($self and $self->can('autoload'))
|
|
3181
|
0 |
0 |
if (my $code = $self->autoload($meth))
|
|
3183
|
0 |
0 |
if $code
|
|
3189
|
0 |
0 |
if defined $self
|
|
3191
|
0 |
0 |
if ($this)
|
|
3193
|
0 |
0 |
$this->{'_data_repo'} ? :
|
|
3196
|
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) { }
|
|
3198
|
0 |
0 |
if (@_)
|
|
3200
|
0 |
0 |
@_ == 1 ? :
|
|
3203
|
0 |
0 |
if (wantarray) { }
|
|
3205
|
0 |
0 |
if (ref $data->{$meth} eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $data->{$meth} eq 'HASH') { }
|
|
3241
|
0 |
0 |
if ($MOD_PERL) { }
|
|
3248
|
0 |
0 |
if $DEBUG
|
|
3251
|
0 |
0 |
if (defined($filename = $INC{"$pkg.pm"}))
|
|
3255
|
0 |
0 |
if (-r $filename) { }
|
|
3257
|
0 |
0 |
unless ($filename =~ m[^/]s)
|
|
3267
|
0 |
0 |
unless (defined $filename)
|
|
3279
|
0 |
0 |
if ($@)
|
|
3281
|
0 |
0 |
if (substr($sub, -9) eq '::DESTROY') { }
|
|
3292
|
0 |
0 |
if ($filename =~ s/(\w{12,})\.al$/substr($1, 0, 11) . '.al';/e)
|
|
3301
|
0 |
0 |
if ($@)
|
|
3312
|
0 |
0 |
if $func eq 'EXTRA_AUTOLOAD'
|
|
3313
|
0 |
0 |
if ($self and $func ne 'EXTRA_AUTOLOAD' and $sub_ref = $self->will('EXTRA_AUTOLOAD')) { }
|
|
3330
|
0 |
0 |
if ($DEBUG)
|
|
3333
|
0 |
0 |
if ($MOD_PERL) { }
|
|
3343
|
0 |
0 |
if $self
|
|
3386
|
1 |
0 |
if (@_)
|
|
3388
|
0 |
1 |
if (&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')) { }
|
|
|
1 |
0 |
elsif (ref $_[0] eq 'HASH') { }
|
|
3398
|
0 |
0 |
ref $_ eq 'CODE' ? :
|
|
3409
|
0 |
1 |
if (ref $args->{'object'} and &Scalar::Util::blessed($args->{'object'}) and $args->{'object'}->isa('Module::Generic::Exception')) { }
|
|
3421
|
0 |
1 |
if exists $args->{'code'}
|
|
3422
|
0 |
1 |
if exists $args->{'type'}
|
|
3423
|
0 |
1 |
if exists $args->{'retry_after'}
|
|
3465
|
0 |
0 |
if ref $class
|
|
3466
|
0 |
0 |
unless &Scalar::Util::blessed($e) and $e->isa($class)
|
|
3483
|
0 |
0 |
unless &Scalar::Util::blessed($self)
|
|
3514
|
0 |
0 |
if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Exception')) { }
|
|
|
0 |
0 |
elsif (not ref $other) { }
|
|
3516
|
0 |
0 |
if ($self->message eq $other->message and $self->file eq $other->file and $self->line == $other->line) { }
|
|
3546
|
0 |
0 |
if ($code = $self->can($method)) { }
|
|
3554
|
0 |
0 |
if $@
|
|
3582
|
0 |
1444 |
@_ == 1 && ref $_[0] ? :
|
|
3594
|
0 |
0 |
if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Null')) { }
|
|
|
0 |
0 |
elsif (not ref $other) { }
|
|
3615
|
0 |
1444 |
if (want('OBJECT'))
|
|
3646
|
0 |
0 |
if scalar @_ == 1 and not defined $_[0]
|
|
3647
|
0 |
0 |
if (scalar @_ == 1 and &Scalar::Util::reftype($_[0]) eq 'HASH') { }
|
|
|
0 |
0 |
elsif (@_) { }
|
|
3653
|
0 |
0 |
if $this->_warnings_is_enabled
|
|
3687
|
0 |
0 |
if $@
|
|
3693
|
0 |
0 |
if (ref $hash->{$k} eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $hash->{$k} eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (not ref $hash->{$k}) { }
|
|
3706
|
0 |
0 |
if $@
|
|
3714
|
0 |
0 |
scalar @{$hash->{$k};} ? :
|
|
3715
|
0 |
0 |
if ($mode eq 'hash') { }
|
|
3720
|
0 |
0 |
$this->{'_looping'} ? :
|
|
3732
|
0 |
0 |
if $@
|
|
3762
|
0 |
0 |
if ($code = $self->can($method)) { }
|
|
3772
|
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) { }
|
|
3784
|
0 |
0 |
if $@
|
|
3803
|
4 |
3 |
$_[1] ? :
|
|
3814
|
0 |
0 |
if $_[0]
|
|
3815
|
0 |
0 |
if not $_[0]
|
|
3822
|
0 |
0 |
$_[0] ? :
|
|
3851
|
35 |
0 |
if @_ and &Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY'
|
|
3870
|
6 |
13 |
if @_
|
|
3871
|
6 |
13 |
if $sort
|
|
3881
|
4 |
0 |
if (defined $offset)
|
|
3883
|
1 |
3 |
unless ($offset =~ /^\-?\d+$/)
|
|
3885
|
0 |
1 |
if $self->_warnings_is_enabled
|
|
3888
|
0 |
3 |
if (defined $length and not $length =~ /^\-?\d+$/)
|
|
3890
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
3893
|
2 |
1 |
defined $length ? :
|
|
3894
|
0 |
3 |
if (Want::want('LIST')) { }
|
|
3916
|
0 |
1 |
if (ref $code ne 'CODE')
|
|
3918
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
3925
|
0 |
18 |
unless defined &$code($i, $v)
|
|
3940
|
0 |
0 |
if CORE::length $self->[0]
|
|
3941
|
0 |
0 |
if (Want::want('OBJECT'))
|
|
3952
|
0 |
1 |
if ref $code ne 'CODE'
|
|
3956
|
0 |
18 |
unless defined &$code($i, $self->[$i])
|
|
3965
|
0 |
1 |
if ref $code ne 'CODE'
|
|
3969
|
0 |
18 |
unless defined &$code($v)
|
|
3986
|
1 |
2 |
if (ref $expr eq 'CODE') { }
|
|
3992
|
1 |
1 |
ref $expr eq 'Regexp' ? :
|
|
3997
|
0 |
3 |
if (Want::want('LIST')) { }
|
|
4022
|
0 |
0 |
if CORE::length $self->[-1]
|
|
4023
|
0 |
0 |
if (Want::want('OBJECT'))
|
|
4038
|
0 |
3 |
if ref $code ne 'CODE'
|
|
4040
|
1 |
2 |
if (Want::want('OBJECT')) { }
|
|
|
1 |
1 |
elsif (Want::want('LIST')) { }
|
|
4071
|
0 |
1 |
unless UNIVERSAL::isa($ref, 'ARRAY')
|
|
4087
|
0 |
1 |
if (wantarray) { }
|
|
4102
|
1 |
0 |
scalar @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY') ? :
|
|
4120
|
1 |
7 |
if (ref $code eq 'CODE') { }
|
|
4131
|
0 |
8 |
if (Want::want('LIST')) { }
|
|
4145
|
0 |
2 |
if (defined $offset and not $offset =~ /^\-?\d+$/)
|
|
4147
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
4149
|
0 |
0 |
if scalar @list
|
|
4152
|
0 |
2 |
if (defined $length and not $length =~ /^\-?\d+$/)
|
|
4154
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
4155
|
0 |
0 |
if scalar @list
|
|
4160
|
1 |
1 |
if (scalar @_ > 2) { }
|
|
|
1 |
0 |
elsif (not scalar @_) { }
|
|
4172
|
0 |
0 |
if defined $offset and defined $length
|
|
4173
|
0 |
0 |
if defined $offset
|
|
4195
|
0 |
1 |
if (Want::want('LIST')) { }
|
|
4209
|
0 |
19 |
unless defined $num
|
|
4210
|
0 |
19 |
unless CORE::length $num
|
|
4222
|
1 |
2 |
if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Array')) { }
|
|
|
2 |
0 |
elsif (&Scalar::Util::reftype($other) eq 'ARRAY') { }
|
|
4243
|
0 |
4 |
unless defined $str
|
|
4266
|
0 |
3 |
if (not defined $$self) { }
|
|
|
0 |
3 |
elsif (not defined $other) { }
|
|
4277
|
0 |
3 |
if ($swap) { }
|
|
4293
|
0 |
1 |
$swap ? :
|
|
4295
|
0 |
1 |
if ($@)
|
|
4306
|
1 |
3237 |
if (&Scalar::Util::blessed($other) and ref $other eq ref $self) { }
|
|
4325
|
53957 |
1741 |
if (ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')) { }
|
|
|
0 |
1741 |
elsif (ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')) { }
|
|
|
0 |
1741 |
elsif (ref $_[0]) { }
|
|
|
1741 |
0 |
elsif (@_) { }
|
|
4335
|
0 |
0 |
if $this->_warnings_is_enabled
|
|
4351
|
2 |
1 |
${$_[0];} ? :
|
|
4368
|
1 |
0 |
unless /[[:lower:]]/
|
|
4381
|
13 |
0 |
defined $4 ? :
|
|
|
5 |
13 |
defined $3 ? :
|
|
|
0 |
18 |
defined $2 ? :
|
|
4432
|
1 |
4 |
if (@_) { }
|
|
4454
|
0 |
2 |
if defined $pos
|
|
4482
|
1 |
0 |
ref $str eq 'Regexp' ? :
|
|
|
1 |
0 |
defined $str ? :
|
|
4494
|
0 |
0 |
ref $str eq 'Regexp' ? :
|
|
|
0 |
1 |
defined $str ? :
|
|
4506
|
1 |
0 |
ref $re eq 'Regexp' ? :
|
|
|
1 |
0 |
defined $re ? :
|
|
4521
|
0 |
2 |
if (not CORE::length $n) { }
|
|
|
0 |
2 |
elsif (not $n =~ /^\-?\d+$/) { }
|
|
4523
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
4527
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
4530
|
1 |
1 |
if ($n < 0) { }
|
|
4541
|
0 |
0 |
@_ > 1 ? :
|
|
4550
|
3 |
1 |
ref $re eq 'Regexp' ? :
|
|
|
4 |
0 |
defined $re ? :
|
|
4566
|
1 |
1 |
if defined $pos
|
|
4574
|
0 |
1 |
ref $str eq 'Regexp' ? :
|
|
|
1 |
0 |
defined $str ? :
|
|
4589
|
0 |
3435 |
if (ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')) { }
|
|
|
0 |
3435 |
elsif (ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')) { }
|
|
|
0 |
3435 |
elsif (ref $_[0]) { }
|
|
4599
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
4616
|
0 |
2 |
if (defined $limit and $limit =~ /^\d+$/) { }
|
|
4624
|
2 |
0 |
if (Want::want('OBJECT') or Want::want('SCALAR')) { }
|
|
|
0 |
0 |
elsif (Want::want('LIST')) { }
|
|
4642
|
1 |
1 |
if defined $length and defined $replacement
|
|
4643
|
1 |
0 |
if defined $length
|
|
4660
|
0 |
2 |
defined $str ? :
|
|
4680
|
0 |
2 |
unless defined $arr
|
|
4681
|
0 |
2 |
if &Scalar::Util::reftype($arr) ne 'ARRAY'
|
|
4689
|
0 |
9 |
unless defined $num
|
|
4690
|
0 |
9 |
unless CORE::length $num
|
|
4747
|
0 |
2 |
$swap ? :
|
|
4749
|
0 |
2 |
if $@ and $self->_warnings_is_enabled
|
|
4750
|
0 |
2 |
if $@
|
|
4752
|
1 |
1 |
if ($res =~ /^$RE{'num'}{'real'}$/) { }
|
|
5151
|
0 |
131 |
unless CORE::length $num
|
|
5152
|
1 |
130 |
if POSIX::isinf($num)
|
|
5153
|
1 |
129 |
if POSIX::isnan($num)
|
|
5165
|
67 |
62 |
if ($self->{'lang'}) { }
|
|
|
62 |
0 |
elsif ($curr_locale and my $lconv = POSIX::localeconv()) { }
|
|
5178
|
67 |
0 |
if (index($_[0], '.') == -1) { }
|
|
5184
|
0 |
67 |
if (not $loc and exists $$SUPPORTED_LOCALES{$_[0]})
|
|
5189
|
0 |
0 |
if ($loc = POSIX::setlocale(&POSIX::LC_ALL, $supported))
|
|
5209
|
67 |
0 |
if (my $loc = &$try_locale($self->{'lang'})) { }
|
|
5217
|
67 |
0 |
if $lconv and scalar keys %$lconv
|
|
5224
|
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)
|
|
5227
|
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'))
|
|
5231
|
62 |
0 |
if scalar keys %$lconv
|
|
5278
|
172 |
1505 |
if CORE::length $self->{$prop}
|
|
5281
|
62 |
2628 |
if (defined $default->{$lconv_prop}) { }
|
|
5286
|
0 |
0 |
if (exists $numerics->{$lconv_prop} and CORE::length $default->{$lconv_prop} and $default->{$lconv_prop} < 0)
|
|
5320
|
234 |
1443 |
if ($self->$prop->defined) { }
|
|
5334
|
774 |
2322 |
if exists $skip->{$lconv_prop}
|
|
5337
|
1156 |
698 |
if (not CORE::length $opts->{$lconv_prop} and exists $numerics->{$lconv_prop})
|
|
5348
|
2 |
127 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
127 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
129 |
CORE::length $@ ? :
|
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
|
0 |
129 |
if ($Nice::Try::DIED)
|
|
5352
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
|
0 |
129 |
if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
|
|
5356
|
1 |
128 |
if (not $num =~ /^$RE{'num'}{'real'}$/) { }
|
|
5365
|
1 |
128 |
unless defined $self->{'_number'}
|
|
5367
|
2 |
127 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
127 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
129 |
CORE::length $@ ? :
|
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
|
0 |
129 |
if ($Nice::Try::DIED)
|
|
5370
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
1 |
$Nice::Try::WANTARRAY ? :
|
|
|
1 |
128 |
if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
|
|
5382
|
2 |
2 |
+(shift())->{'_number'} ? :
|
|
5395
|
65 |
2 |
@_ ? :
|
|
5396
|
0 |
67 |
if POSIX::isinf($num)
|
|
5397
|
0 |
67 |
if POSIX::isnan($num)
|
|
5408
|
6 |
135 |
&Scalar::Util::blessed($other) ? :
|
|
5409
|
6 |
135 |
$swap ? :
|
|
5410
|
37 |
104 |
if ($opts->{'return_object'}) { }
|
|
|
101 |
3 |
elsif ($opts->{'boolean'}) { }
|
|
5414
|
0 |
37 |
if $@ and $self->_warnings_is_enabled
|
|
5415
|
0 |
37 |
if $@
|
|
5416
|
1 |
36 |
if $opts->{'type'} eq 'scalar'
|
|
5417
|
5 |
31 |
if POSIX::isinf($res)
|
|
5418
|
4 |
27 |
if POSIX::isnan($res)
|
|
5420
|
27 |
0 |
if defined $res
|
|
5427
|
0 |
101 |
if $@ and $self->_warnings_is_enabled
|
|
5428
|
0 |
101 |
if $@
|
|
5429
|
97 |
4 |
$res ? :
|
|
5452
|
0 |
2 |
@_ && $_[0] =~ /^\d+$/ ? :
|
|
5456
|
0 |
2 |
unless defined $num
|
|
5464
|
0 |
2 |
unless defined $res
|
|
5467
|
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)
|
|
5470
|
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'))
|
|
5481
|
0 |
1 |
unless defined $num
|
|
5487
|
0 |
1 |
unless defined $res
|
|
5490
|
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)
|
|
5493
|
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'))
|
|
5501
|
0 |
1 |
@_ && $_[0] =~ /^\d+$/ ? :
|
|
5502
|
0 |
1 |
@_ ? :
|
|
5506
|
0 |
1 |
unless defined $num
|
|
5516
|
0 |
1 |
unless defined $res
|
|
5519
|
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)
|
|
5522
|
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'))
|
|
5531
|
0 |
1 |
unless defined $num
|
|
5540
|
0 |
1 |
unless defined $res
|
|
5543
|
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)
|
|
5546
|
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'))
|
|
5555
|
0 |
0 |
unless defined $num
|
|
5561
|
0 |
0 |
unless defined $res
|
|
5564
|
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)
|
|
5567
|
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'))
|
|
5577
|
0 |
1 |
unless defined $binary and CORE::length $binary
|
|
5582
|
0 |
1 |
unless defined $res
|
|
5585
|
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)
|
|
5588
|
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'))
|
|
5595
|
0 |
1 |
unless defined $hex and CORE::length $hex
|
|
5599
|
0 |
1 |
unless defined $res
|
|
5602
|
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)
|
|
5605
|
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'))
|
|
5658
|
0 |
3563 |
if (@_) { }
|
|
5660
|
0 |
0 |
if (@_ == 1 and $self->_is_hash($_[0])) { }
|
|
|
0 |
0 |
elsif (not @_ % 2) { }
|
|
5687
|
5369 |
40950 |
if defined $hash->{$prop}
|
|
5691
|
3563 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
3563 |
CORE::length $@ ? :
|
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
|
0 |
3563 |
if ($Nice::Try::DIED)
|
|
5694
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
3563 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
|
3563 |
0 |
if (defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
|
|
5715
|
1 |
0 |
CORE::length $_[1] ? :
|
|
5725
|
0 |
0 |
unless defined $num
|
|
5731
|
0 |
0 |
unless defined $res
|
|
5736
|
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)
|
|
5739
|
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'))
|
|
5768
|
0 |
1 |
unless defined $num
|
|
5777
|
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)
|
|
5780
|
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'))
|
|
5789
|
20 |
9 |
if ref $_[-1] eq 'HASH'
|
|
5790
|
20 |
9 |
$opts->{'posix'} ? :
|
|
5791
|
4 |
25 |
@_ ? :
|
|
5792
|
4 |
25 |
defined $val ? :
|
|
5796
|
0 |
29 |
if $@
|
|
5797
|
0 |
29 |
if $@
|
|
5798
|
0 |
29 |
unless defined $res
|
|
5799
|
0 |
29 |
if POSIX::isinf($res)
|
|
5800
|
0 |
29 |
if POSIX::isnan($res)
|
|
5808
|
3563 |
48242 |
if (@_)
|
|
5811
|
871 |
2692 |
if $self->_is_object($val) and $val->isa('Module::Generic::Scalar')
|
|
5813
|
3563 |
0 |
if ($val ne $self->{$prop} or not defined $val)
|
|
5818
|
0 |
3563 |
unless $self->formatter($self->new_formatter)
|
|
5831
|
0 |
0 |
if ($code)
|
|
5837
|
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)
|
|
5841
|
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'))
|
|
5896
|
0 |
1 |
$swap ? :
|
|
5899
|
0 |
1 |
if $@
|
|
5900
|
0 |
1 |
if $@
|
|
5901
|
0 |
1 |
if POSIX::isnormal($res)
|
|
5902
|
1 |
0 |
if POSIX::isinf($res)
|
|
5903
|
0 |
0 |
if POSIX::isnan($res)
|
|
5912
|
5 |
2 |
if ref $_[-1] eq 'HASH'
|
|
5913
|
5 |
2 |
$opts->{'posix'} ? :
|
|
5914
|
3 |
4 |
@_ ? :
|
|
5915
|
3 |
4 |
defined $val ? :
|
|
5919
|
0 |
7 |
if $@
|
|
5920
|
0 |
7 |
unless defined $res
|
|
5921
|
3 |
4 |
if POSIX::isnormal($res)
|
|
5922
|
4 |
0 |
if POSIX::isinf($res)
|
|
5923
|
0 |
0 |
if POSIX::isnan($res)
|
|
5932
|
0 |
0 |
if (want('OBJECT'))
|
|
6004
|
0 |
134 |
if &Scalar::Util::reftype($data) ne 'HASH'
|
|
6006
|
0 |
134 |
if $tied
|
|
6051
|
0 |
1 |
if ref $code ne 'CODE'
|
|
6054
|
0 |
4 |
unless defined &$code($k, $v)
|
|
6067
|
0 |
1 |
if ref $code ne 'CODE'
|
|
6071
|
0 |
4 |
unless defined &$code($k, $self->{$k})
|
|
6082
|
1 |
1 |
if ref $_[-1] eq 'HASH'
|
|
6086
|
1 |
1 |
if ($opts->{'pretty'}) { }
|
|
6108
|
0 |
2 |
if not $hash or &Scalar::Util::reftype($hash) ne 'HASH'
|
|
6111
|
1 |
1 |
if @_ and ref $_[-1] eq 'HASH'
|
|
6112
|
1 |
1 |
unless exists $opts->{'overwrite'}
|
|
6121
|
2 |
2 |
if @_ and ref $_[-1] eq 'HASH'
|
|
6126
|
6 |
8 |
if exists $to->{$k} and not $p->{'overwrite'}
|
|
6127
|
2 |
6 |
if (ref $this->{$k} eq 'HASH' or &Scalar::Util::blessed($this->{$k}) and $this->{$k}->isa('Module::Generic::Hash')) { }
|
|
6132
|
0 |
2 |
if (exists $seen->{$addr}) { }
|
|
6139
|
1 |
1 |
unless &Scalar::Util::reftype($to->{$k}) eq 'HASH'
|
|
6166
|
1 |
0 |
if @_ and ref $_[0] eq 'CODE'
|
|
6168
|
1 |
0 |
if &Scalar::Util::reftype($_[-1]) eq 'HASH'
|
|
6169
|
1 |
0 |
if ($code) { }
|
|
6171
|
1 |
0 |
if ($opts->{'sort'}) { }
|
|
6182
|
0 |
0 |
if ($opts->{'sort'}) { }
|
|
6234
|
0 |
4 |
if (wantarray) { }
|
|
6245
|
0 |
4 |
wantarray ? :
|
|
6253
|
7 |
5 |
if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')) { }
|
|
|
5 |
0 |
elsif ($other =~ /^$RE{'num'}{'real'}$/) { }
|
|
6265
|
2 |
10 |
$swap ? :
|
|
6278
|
2 |
0 |
if (&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')) { }
|
|
|
0 |
0 |
elsif (&Scalar::Util::reftype($other) eq 'HASH') { }
|
|
6313
|
134 |
0 |
if @_
|
|
6314
|
0 |
134 |
if (&Scalar::Util::reftype($opts) ne 'HASH')
|
|
6316
|
0 |
0 |
if $self->_warnings_is_enabled
|
|
6320
|
134 |
0 |
if &Scalar::Util::reftype($opts->{'disable'})
|
|
6352
|
0 |
1 |
if ($self->_exclude($caller) or not $self->{'enable'}) { }
|
|
6369
|
0 |
3 |
if ($self->_exclude($caller) or not $self->{'enable'}) { }
|
|
6387
|
554 |
22 |
if ($self->_exclude($caller) or not $self->{'enable'}) { }
|
|
6406
|
0 |
26 |
if ($self->_exclude($caller) or not $self->{'enable'}) { }
|
|
6423
|
88 |
0 |
ref $self->{'ITERATOR'} ? :
|
|
6432
|
0 |
0 |
if ($self->_exclude($caller) or not $self->{'enable'}) { }
|
|
6449
|
807 |
3140 |
if ($self->_exclude($caller) or not $self->{'enable'}) { }
|
|
6487
|
0 |
0 |
if ($arg{'pkg'})
|
|
6490
|
0 |
0 |
ref $ok eq 'ARRAY' ? :
|
|
6505
|
0 |
0 |
if $data->{'readonly'} and $pkg ne 'Module::Generic::Tie'
|
|
6507
|
0 |
0 |
unless ($data->{'perms'} & 2)
|
|
6509
|
0 |
0 |
unless grep /^$pkg$/, @{$$data{'pkg'};}
|
|
6528
|
0 |
0 |
if $pkg eq 'Module::Generic'
|
|
6531
|
0 |
0 |
if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
|
|
6533
|
0 |
0 |
unless ($data->{'perms'} & 2)
|
|
6535
|
0 |
0 |
unless grep /^$pkg$/, @{$$data{'pkg'};}
|
|
6544
|
0 |
0 |
if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
|
|
6546
|
0 |
0 |
unless ($data->{'perms'} & 4)
|
|
6549
|
0 |
0 |
unless grep /^$pkg$/, @{$$data{'pkg'};}
|
|
6561
|
0 |
0 |
if $_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
|
|
6565
|
0 |
0 |
unless ($data->{'perms'} & 4)
|
|
6569
|
0 |
0 |
unless grep /^$pkg$/, @{$$data{'pkg'};}
|
|
6581
|
0 |
0 |
unless ($data->{'perms'} & 4)
|
|
6585
|
0 |
0 |
unless grep /^$pkg$/, @{$$data{'pkg'};}
|
|
6601
|
0 |
0 |
unless ($data->{'perms'} & 4)
|
|
6605
|
0 |
0 |
unless grep /^$pkg$/, @{$$data{'pkg'};}
|
|
6615
|
0 |
0 |
if $_[0] eq '__priv__'
|
|
6619
|
0 |
0 |
unless ($data->{'perms'} & 2)
|
|
6622
|
0 |
0 |
if $pkg eq 'Module::Generic'
|
|
6624
|
0 |
0 |
unless grep /^$pkg$/, @{$$data{'pkg'};}
|