| line |
!l |
l&&!r |
l&&r |
condition |
|
183
|
0 |
0 |
0 |
scalar @_ == 1 and ref $_[0] eq 'HASH'
|
|
203
|
0 |
0 |
0 |
$p->{'json'} and ref $rv eq 'JSON::PP::Boolean' || ref $rv eq 'Module::Generic::Boolean'
|
|
211
|
0 |
0 |
0 |
$rv->can('as_hash') and overload::Overloaded($rv)
|
|
|
0 |
0 |
0 |
$rv->can('as_hash') and overload::Overloaded($rv) and overload::Method($rv, '""')
|
|
234
|
0 |
0 |
0 |
$self->_is_object($this_ref) && $this_ref->can('as_hash')
|
|
294
|
0 |
0 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
377
|
0 |
0 |
0 |
$red < $r and $red > int $r / 2
|
|
|
0 |
0 |
0 |
$red > $r and $red < int $r_p / 2
|
|
|
0 |
0 |
0 |
$red > $r and $red < int $r_p / 2 and $r_p
|
|
387
|
0 |
0 |
0 |
$green < $g and $green > int $g / 2
|
|
|
0 |
0 |
0 |
$green > $g and $green < int $g_p / 2
|
|
|
0 |
0 |
0 |
$green > $g and $green < int $g_p / 2 and $g_p
|
|
398
|
0 |
0 |
0 |
$blue < $b and $blue > int $b / 2
|
|
|
0 |
0 |
0 |
$blue > $b and $blue < int $b_p / 2
|
|
|
0 |
0 |
0 |
$blue > $b and $blue < int $b_p / 2 and $b_p
|
|
419
|
12 |
0 |
0 |
length $opts->{'message'} and not length $opts->{'text'}
|
|
505
|
14 |
0 |
3 |
length $+{'rgb_type'} and length $+{'red'}
|
|
|
14 |
0 |
3 |
length $+{'rgb_type'} and length $+{'red'} and length $+{'green'}
|
|
|
0 |
0 |
3 |
length $+{'rgb_type'} and length $+{'red'} and length $+{'green'} and length $+{'blue'}
|
|
546
|
0 |
1 |
13 |
$self->message(9, "Checking if rgb value exists for colour '${col}'") and $col_ref = $self->colour_to_rgb($col)
|
|
663
|
1 |
10 |
1 |
scalar @$params and $opts->{'text'} =~ /\n+/
|
|
912
|
134 |
0 |
1 |
$this->{'debug'} and not $this->{'debug_level'}
|
|
930
|
0 |
0 |
0 |
scalar @_ > 1 and ref $_[-1] eq 'HASH'
|
|
948
|
0 |
0 |
0 |
scalar @_ > 1 and ref $_[-1] eq 'HASH'
|
|
1019
|
1 |
0 |
0 |
&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')
|
|
1029
|
1 |
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'}
|
|
1031
|
1 |
0 |
0 |
$this->{'error_max_length'} > 0 and length $args->{'message'} > $this->{'error_max_length'}
|
|
1055
|
0 |
0 |
1 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
1 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
1063
|
0 |
0 |
0 |
$call_offset > 0 and $call_data[0] ne $class
|
|
|
0 |
0 |
0 |
$call_offset > 0 and $call_data[0] ne $class and (caller $call_offset - 1)[0] eq $class
|
|
1069
|
0 |
0 |
0 |
$call_offset > 0 and (caller $call_offset - 1)[0] ne $class
|
|
1084
|
1 |
0 |
0 |
$err_handler and ref $err_handler eq 'CODE'
|
|
|
1 |
0 |
0 |
exists $this->{'quiet'} && $this->{'quiet'}
|
|
1155
|
0 |
0 |
0 |
not $args->{'no_return_null_object'} and want('OBJECT')
|
|
1199
|
196 |
68 |
0 |
@_ == 1 and not defined $_[0]
|
|
1204
|
2 |
0 |
0 |
&Scalar::Util::blessed($args[0]) and $args[0]->isa('Module::Generic::Hash')
|
|
|
2 |
0 |
0 |
scalar @args == 1 and not defined $args[0]
|
|
1275
|
0 |
0 |
0 |
index($data->{$name}, '::') != -1 || $data->{$name} =~ /^[a-zA-Z][a-zA-Z\_]*[a-zA-Z]$/ and $self->_is_class_loaded($data->{$name})
|
|
1314
|
264 |
0 |
0 |
$OPTIMIZE_MESG_SUB and not $this->{'verbose'}
|
|
|
264 |
0 |
0 |
$OPTIMIZE_MESG_SUB and not $this->{'verbose'} and not $this->{'debug'}
|
|
1405
|
0 |
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'}
|
|
1414
|
0 |
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'}
|
|
1440
|
0 |
0 |
0 |
$r and not ${"${class}::LOG_DEBUG";}
|
|
|
0 |
0 |
0 |
$MOD_PERL and not ${"${class}::LOG_DEBUG";}
|
|
|
0 |
0 |
0 |
not -t STDIN and $this->{'_log_handler'}
|
|
|
0 |
0 |
0 |
not -t STDIN and $this->{'_log_handler'} and ref $this->{'_log_handler'} eq 'CODE'
|
|
|
0 |
0 |
0 |
not -t STDIN and ${$class . '::MESSAGE_HANDLER';}
|
|
|
0 |
0 |
0 |
not -t STDIN and ${$class . '::MESSAGE_HANDLER';} and ref ${$class . '::MESSAGE_HANDLER';} eq 'CODE'
|
|
1505
|
0 |
0 |
0 |
scalar @_ > 1 and ref $_[-1] eq 'HASH'
|
|
|
0 |
0 |
0 |
scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'}
|
|
1510
|
0 |
0 |
0 |
not defined $level and exists $opts->{'level'}
|
|
1516
|
0 |
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'}
|
|
1525
|
0 |
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'}
|
|
1545
|
0 |
0 |
0 |
scalar @_ > 1 and ref $_[-1] eq 'HASH'
|
|
|
0 |
0 |
0 |
scalar @_ > 1 and ref $_[-1] eq 'HASH' and exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'} || exists $_[-1]{'colour'}
|
|
1549
|
0 |
0 |
0 |
not defined $level and exists $opts->{'level'}
|
|
1569
|
0 |
0 |
0 |
ref $_ eq 'CODE' && !$this->{'_msg_no_exec_sub'}
|
|
1589
|
0 |
0 |
0 |
scalar @args > 1 and ref $args[-1] eq 'HASH'
|
|
|
0 |
0 |
0 |
scalar @args > 1 and ref $args[-1] eq 'HASH' and exists $args[-1]{'level'} || exists $args[-1]{'type'} || exists $args[-1]{'message'}
|
|
1612
|
0 |
0 |
0 |
ref $_[-1] eq 'HASH' and exists $_[-1]{'level'}
|
|
|
0 |
0 |
0 |
$this->{'_message_default_level'} =~ /^\d+$/ and $this->{'_message_default_level'} > 0
|
|
1629
|
0 |
0 |
218 |
$_[0] =~ /^\d+$/ || ref $_[-1] eq 'HASH' && exists $_[-1]{'level'} and @_ > 1
|
|
1633
|
0 |
0 |
0 |
ref $_[-1] eq 'HASH' and exists $_[-1]{'level'}
|
|
1646
|
218 |
0 |
0 |
length $target_re and $class =~ /^$target_re$/
|
|
|
218 |
0 |
0 |
length $target_re and $class =~ /^$target_re$/ and ${$class . '::GLOBAL_DEBUG';} >= $message_level
|
|
1707
|
0 |
0 |
0 |
not &Scalar::Util::openhandle($io) and $io
|
|
1723
|
0 |
0 |
0 |
${"${class}::LOG_DEBUG";} and not $self->_set_get('log_io')
|
|
|
0 |
0 |
0 |
${"${class}::LOG_DEBUG";} and not $self->_set_get('log_io') and ${"${class}::DEB_LOG";}
|
|
1806
|
0 |
0 |
0 |
ref $err and &Scalar::Util::blessed($err)
|
|
1905
|
0 |
0 |
0 |
@_ >= 2 and @_ <= 3
|
|
1908
|
0 |
0 |
0 |
@_ == 3 and ref $_[1]
|
|
1917
|
0 |
0 |
0 |
not ref $obj and index($obj, '::') == -1
|
|
1920
|
0 |
0 |
0 |
&Scalar::Util::blessed($obj) and $ref = $obj->can($meth)
|
|
1956
|
0 |
0 |
0 |
$class ne 'Module::Generic' and $meth ne 'EXTRA_AUTOLOAD'
|
|
|
0 |
0 |
0 |
$class ne 'Module::Generic' and $meth ne 'EXTRA_AUTOLOAD' and defined &{"${class}::AUTOLOAD";}
|
|
1993
|
0 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2001
|
0 |
0 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
2017
|
0 |
0 |
0 |
$obj and $pkg
|
|
2046
|
0 |
0 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
2199
|
0 |
0 |
0 |
@_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY')
|
|
2213
|
0 |
0 |
0 |
@_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY')
|
|
2231
|
0 |
0 |
0 |
$data->{$field} and $self->_is_object($data->{$field})
|
|
2249
|
430 |
0 |
0 |
&Scalar::Util::blessed($val) and $val->isa('JSON::PP::Boolean') || $val->isa('Module::Generic::Boolean')
|
|
2270
|
0 |
430 |
0 |
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')
|
|
2423
|
0 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2463
|
0 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2511
|
0 |
0 |
0 |
$time =~ /^\d+$/ and not $time =~ /^\d{10}$/
|
|
2560
|
0 |
0 |
0 |
not $data->{$field} and want('OBJECT')
|
|
2575
|
0 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2605
|
129 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2625
|
0 |
0 |
129 |
$data->{$field} and not $self->_is_object($data->{$field})
|
|
2640
|
0 |
0 |
0 |
@_ == 1 and not defined $_[0]
|
|
2703
|
0 |
0 |
0 |
$data->{$field} and $self->_is_object($data->{$field})
|
|
2716
|
1 |
3 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2788
|
3564 |
0 |
0 |
not $data->{$field} and want('OBJECT')
|
|
2862
|
0 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2908
|
0 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
2911
|
0 |
0 |
0 |
scalar @_ == 1 && UNIVERSAL::isa($_[0], 'ARRAY')
|
|
2920
|
0 |
0 |
0 |
$data->{$field} and $self->_is_object($data->{$field})
|
|
3009
|
0 |
0 |
53891 |
$self->_is_object($data->{$field}) and ref $data->{$field} ne ref $self
|
|
3050
|
0 |
0 |
0 |
not $data->{$field} and want('OBJECT')
|
|
3075
|
0 |
0 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
3078
|
0 |
0 |
0 |
&Scalar::Util::blessed($str) and $str->isa('URI')
|
|
|
0 |
0 |
0 |
defined $str and $str =~ m[^[a-zA-Z]+:/{2}] || $str =~ /^urn\:[a-z]+\:/ || $str =~ /^[a-z]+\:/
|
|
3150
|
0 |
0 |
0 |
&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic')
|
|
3179
|
0 |
0 |
0 |
$self and $self->can('autoload')
|
|
3196
|
0 |
0 |
0 |
$data and exists $data->{$meth}
|
|
|
0 |
0 |
0 |
$self and $self->can($meth)
|
|
|
0 |
0 |
0 |
$self and $self->can($meth) and defined &{"${class}::$meth";}
|
|
3313
|
0 |
0 |
0 |
$self and $func ne 'EXTRA_AUTOLOAD'
|
|
|
0 |
0 |
0 |
$self and $func ne 'EXTRA_AUTOLOAD' and $sub_ref = $self->will('EXTRA_AUTOLOAD')
|
|
3388
|
1 |
0 |
0 |
&Scalar::Util::blessed($_[0]) and $_[0]->isa('Module::Generic::Exception')
|
|
3409
|
1 |
0 |
0 |
ref $args->{'object'} and &Scalar::Util::blessed($args->{'object'})
|
|
|
1 |
0 |
0 |
ref $args->{'object'} and &Scalar::Util::blessed($args->{'object'}) and $args->{'object'}->isa('Module::Generic::Exception')
|
|
3466
|
0 |
0 |
0 |
&Scalar::Util::blessed($e) and $e->isa($class)
|
|
3514
|
0 |
0 |
0 |
&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Exception')
|
|
3516
|
0 |
0 |
0 |
$self->message eq $other->message and $self->file eq $other->file
|
|
|
0 |
0 |
0 |
$self->message eq $other->message and $self->file eq $other->file and $self->line == $other->line
|
|
3582
|
1444 |
0 |
0 |
@_ == 1 && ref $_[0]
|
|
3594
|
0 |
0 |
0 |
&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Null')
|
|
3646
|
0 |
0 |
0 |
scalar @_ == 1 and not defined $_[0]
|
|
3647
|
0 |
0 |
0 |
scalar @_ == 1 and &Scalar::Util::reftype($_[0]) eq 'HASH'
|
|
3772
|
0 |
0 |
0 |
$ref eq 'scalar' and $$ref == 1 || $$ref == 0
|
|
3851
|
2 |
0 |
35 |
@_ and &Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY'
|
|
3888
|
1 |
2 |
0 |
defined $length and not $length =~ /^\-?\d+$/
|
|
4102
|
0 |
0 |
1 |
scalar @_ == 1 && (&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY')
|
|
4145
|
1 |
1 |
0 |
defined $offset and not $offset =~ /^\-?\d+$/
|
|
4152
|
1 |
1 |
0 |
defined $length and not $length =~ /^\-?\d+$/
|
|
4172
|
0 |
0 |
0 |
defined $offset and defined $length
|
|
4222
|
2 |
0 |
1 |
&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Array')
|
|
4306
|
3237 |
0 |
1 |
&Scalar::Util::blessed($other) and ref $other eq ref $self
|
|
4616
|
0 |
2 |
0 |
defined $limit and $limit =~ /^\d+$/
|
|
4642
|
0 |
1 |
1 |
defined $length and defined $replacement
|
|
4749
|
2 |
0 |
0 |
$@ and $self->_warnings_is_enabled
|
|
5165
|
0 |
0 |
62 |
$curr_locale and my $lconv = POSIX::localeconv()
|
|
5184
|
67 |
0 |
0 |
not $loc and exists $$SUPPORTED_LOCALES{$_[0]}
|
|
5227
|
0 |
0 |
67 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
67 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5286
|
62 |
0 |
0 |
exists $numerics->{$lconv_prop} and CORE::length $default->{$lconv_prop}
|
|
|
62 |
0 |
0 |
exists $numerics->{$lconv_prop} and CORE::length $default->{$lconv_prop} and $default->{$lconv_prop} < 0
|
|
5337
|
468 |
698 |
1156 |
not CORE::length $opts->{$lconv_prop} and exists $numerics->{$lconv_prop}
|
|
5352
|
0 |
0 |
129 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
129 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5370
|
1 |
0 |
128 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
128 |
1 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5414
|
37 |
0 |
0 |
$@ and $self->_warnings_is_enabled
|
|
5427
|
101 |
0 |
0 |
$@ and $self->_warnings_is_enabled
|
|
5452
|
2 |
0 |
0 |
@_ && $_[0] =~ /^\d+$/
|
|
5470
|
0 |
2 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
2 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5493
|
0 |
1 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
1 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5501
|
1 |
0 |
0 |
@_ && $_[0] =~ /^\d+$/
|
|
5522
|
0 |
1 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
1 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5546
|
0 |
1 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
1 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5567
|
0 |
0 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5577
|
0 |
0 |
1 |
defined $binary and CORE::length $binary
|
|
5588
|
0 |
1 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
1 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5595
|
0 |
0 |
1 |
defined $hex and CORE::length $hex
|
|
5605
|
0 |
1 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
1 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5660
|
0 |
0 |
0 |
@_ == 1 and $self->_is_hash($_[0])
|
|
5694
|
0 |
3563 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
3563 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5739
|
0 |
0 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5780
|
0 |
1 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
1 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
5811
|
2692 |
0 |
871 |
$self->_is_object($val) and $val->isa('Module::Generic::Scalar')
|
|
5841
|
0 |
0 |
0 |
ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
|
0 |
0 |
0 |
defined $Nice::Try::WANTARRAY and not ref $Nice::Try::RETVAL[0] && $Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')
|
|
6111
|
1 |
0 |
1 |
@_ and ref $_[-1] eq 'HASH'
|
|
6121
|
2 |
0 |
2 |
@_ and ref $_[-1] eq 'HASH'
|
|
6126
|
6 |
2 |
6 |
exists $to->{$k} and not $p->{'overwrite'}
|
|
6127
|
6 |
0 |
0 |
&Scalar::Util::blessed($this->{$k}) and $this->{$k}->isa('Module::Generic::Hash')
|
|
6166
|
0 |
0 |
1 |
@_ and ref $_[0] eq 'CODE'
|
|
6253
|
5 |
0 |
7 |
&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')
|
|
6278
|
0 |
0 |
2 |
&Scalar::Util::blessed($other) and $other->isa('Module::Generic::Hash')
|
|
6505
|
0 |
0 |
0 |
$data->{'readonly'} and $pkg ne 'Module::Generic::Tie'
|
|
6531
|
0 |
0 |
0 |
$_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
|
|
6544
|
0 |
0 |
0 |
$_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
|
|
6561
|
0 |
0 |
0 |
$_[0] eq '__priv__' and $pkg ne 'Module::Generic::Tie'
|
| line |
l |
!l |
condition |
|
693
|
5 |
0 |
$this->{'colour_open'} || '<'
|
|
694
|
5 |
0 |
$this->{'colour_close'} || '>'
|
|
703
|
2 |
5 |
$opts->{'start'} || 0
|
|
966
|
0 |
0 |
'IO::File'->new(">$file") || die("Unable to create file '${file}': $!\n")
|
|
983
|
0 |
0 |
'IO::File'->new(">$file") || die("Unable to create file '${file}': $!\n")
|
|
1370
|
0 |
0 |
$self->message_frame((caller 1)[3]) || 1
|
|
1530
|
0 |
0 |
$level || 0
|
|
1576
|
0 |
0 |
$level || 0
|
|
1712
|
0 |
0 |
$io->print(scalar localtime time, " [$$]: ", @_) || (return $self->error("Unable to print to log file: $!"))
|
|
1735
|
0 |
0 |
'IO::File'->new(">>$DEB_LOG") || die("Unable to open debug log file $DEB_LOG in append mode: $!\n")
|
|
1831
|
0 |
0 |
'IO::File'->new(">$opts->{'file'}") || (return $self->error(qq[Unable to open file "$opts->{'file'}" in write mode: $!]))
|
|
1936
|
0 |
0 |
$level ||= 0
|
|
2038
|
0 |
0 |
shift @_ || (return $self->error('No package name was provided to load.'))
|
|
2289
|
0 |
0 |
shift @_ || (return $self->error('No field was provided to create a dynamic class.'))
|
|
2430
|
0 |
0 |
$self->__create_class($field, $def) || die(qq[Failed to create the dynamic class for field "$field".\n])
|
|
2464
|
0 |
0 |
$self->__create_class($field, $def) || die(qq[Failed to create the dynamic class for field "$field".\n])
|
|
2638
|
0 |
0 |
shift @_ || (return $self->error('No field provided for _set_get_hash_as_object'))
|
|
2774
|
0 |
0 |
$self->_instantiate_object($field, $class, @_) || (return $self->pass_error($class->error))
|
|
2781
|
0 |
0 |
$self->_instantiate_object($field, $class, @_) || (return $self->pass_error($class->error))
|
|
2794
|
0 |
0 |
$self->_instantiate_object($field, $class, @_) || (return $self->pass_error($class->error))
|
|
2881
|
0 |
0 |
$self->_instantiate_object($field, $class, $ref->[$i]) || (return)
|
|
2892
|
0 |
0 |
$self->_instantiate_object($field, $class) || (return)
|
|
2904
|
0 |
0 |
shift @_ || (return $self->error('No field name was provided for this array of object.'))
|
|
2905
|
0 |
0 |
shift @_ || (return $self->error('No class was provided for this array of objects.'))
|
|
2913
|
0 |
0 |
$self->_set_get_object_array($field, $class, $that) || (return)
|
|
2949
|
0 |
0 |
$self->_instantiate_object($field, $class, $data) || (return $self->error('Unable to create object: ', $self->error))
|
|
3123
|
0 |
0 |
'DBI'->connect_cached(${"${class}::DB_DSN";}) || die(q[Unable to connect to sql database with dsn '], ${"${class}::DB_DSN";}, "'\n")
|
|
3402
|
1 |
0 |
$args->{'skip_frames'} || 0
|
|
3420
|
1 |
0 |
$args->{'message'} || ''
|
|
4520
|
2 |
0 |
$str //= ' '
|
|
5786
|
29 |
0 |
shift @_ || (return $self->error('No function was provided.'))
|
|
5828
|
0 |
0 |
shift @_ || (return)
|
|
5829
|
0 |
0 |
$self->{'_fmt'} || (return)
|
|
5910
|
7 |
0 |
shift @_ || (return $self->error('No function was provided.'))
|
|
6002
|
134 |
0 |
shift @_ || (return $that->error("No hash was provided to initiate a $class hash object."))
|
|
6050
|
1 |
0 |
shift @_ || (return $self->error('No subroutine callback as provided for each'))
|
|
6066
|
1 |
0 |
shift @_ || (return $self->error('No subroutine callback as provided for each'))
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
138
|
67 |
66 |
0 |
ref $that || $that
|
|
203
|
0 |
0 |
0 |
ref $rv eq 'JSON::PP::Boolean' || ref $rv eq 'Module::Generic::Boolean'
|
|
260
|
0 |
0 |
0 |
ref $self || $self
|
|
377
|
0 |
0 |
0 |
$red == $r or $red < $r and $red > int $r / 2
|
|
|
0 |
0 |
0 |
$red == $r or $red < $r and $red > int $r / 2 or $red > $r and $red < int $r_p / 2 and $r_p
|
|
|
0 |
0 |
0 |
$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
|
|
387
|
0 |
0 |
0 |
$green == $g or $green < $g and $green > int $g / 2
|
|
|
0 |
0 |
0 |
$green == $g or $green < $g and $green > int $g / 2 or $green > $g and $green < int $g_p / 2 and $g_p
|
|
|
0 |
0 |
0 |
$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
|
|
398
|
0 |
0 |
0 |
$blue == $b or $blue < $b and $blue > int $b / 2
|
|
|
0 |
0 |
0 |
$blue == $b or $blue < $b and $blue > int $b / 2 or $blue > $b and $blue < int $b_p / 2 and $b_p
|
|
|
0 |
0 |
0 |
$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
|
|
422
|
0 |
0 |
0 |
delete $opts->{'color'} || delete $opts->{'fg_colour'} || delete $opts->{'fg_color'} || delete $opts->{'fgcolour'} || delete $opts->{'fgcolor'}
|
|
|
8 |
4 |
0 |
$opts->{'colour'} //= delete $opts->{'color'} || delete $opts->{'fg_colour'} || delete $opts->{'fg_color'} || delete $opts->{'fgcolour'} || delete $opts->{'fgcolor'}
|
|
423
|
5 |
0 |
6 |
delete $opts->{'bgcolor'} || delete $opts->{'bg_colour'} || delete $opts->{'bg_color'}
|
|
|
0 |
6 |
6 |
$opts->{'bgcolour'} //= delete $opts->{'bgcolor'} || delete $opts->{'bg_colour'} || delete $opts->{'bg_color'}
|
|
510
|
1 |
0 |
2 |
$+{'opacity'} or $light
|
|
610
|
12 |
0 |
0 |
$opts->{'colour'} or $opts->{'color'}
|
|
|
0 |
0 |
0 |
$opts->{'colour'} or $opts->{'color'} or $opts->{'fgcolour'}
|
|
|
0 |
0 |
0 |
$opts->{'colour'} or $opts->{'color'} or $opts->{'fgcolour'} or $opts->{'fgcolor'}
|
|
|
0 |
0 |
0 |
$opts->{'colour'} or $opts->{'color'} or $opts->{'fgcolour'} or $opts->{'fgcolor'} or $opts->{'fg_colour'}
|
|
|
0 |
0 |
0 |
$opts->{'colour'} or $opts->{'color'} or $opts->{'fgcolour'} or $opts->{'fgcolor'} or $opts->{'fg_colour'} or $opts->{'fg_color'}
|
|
612
|
0 |
0 |
0 |
delete $opts->{'color'} || delete $opts->{'fg_colour'} || delete $opts->{'fg_color'} || delete $opts->{'fgcolour'} || delete $opts->{'fgcolor'}
|
|
|
12 |
0 |
0 |
$opts->{'colour'} ||= delete $opts->{'color'} || delete $opts->{'fg_colour'} || delete $opts->{'fg_color'} || delete $opts->{'fgcolour'} || delete $opts->{'fgcolor'}
|
|
626
|
6 |
0 |
6 |
$opts->{'bgcolour'} or $opts->{'bgcolor'}
|
|
|
0 |
0 |
6 |
$opts->{'bgcolour'} or $opts->{'bgcolor'} or $opts->{'bg_colour'}
|
|
|
0 |
0 |
6 |
$opts->{'bgcolour'} or $opts->{'bgcolor'} or $opts->{'bg_colour'} or $opts->{'bg_color'}
|
|
628
|
0 |
0 |
0 |
delete $opts->{'bgcolor'} || delete $opts->{'bg_colour'} || delete $opts->{'bg_color'}
|
|
|
6 |
0 |
0 |
$opts->{'bgcolour'} ||= delete $opts->{'bgcolor'} || delete $opts->{'bg_colour'} || delete $opts->{'bg_color'}
|
|
763
|
4 |
0 |
1 |
$+{'style1'} || $+{'style2'}
|
|
778
|
0 |
0 |
4 |
$@ or ref $def ne 'HASH'
|
|
780
|
0 |
0 |
0 |
$@ || qq[Invalid styling "$this_def"]
|
|
889
|
3 |
0 |
0 |
$+{'style1'} || $+{'style2'}
|
|
918
|
1 |
134 |
0 |
$this->{'debug'} || ${"${class}::DEBUG";}
|
|
1014
|
1 |
0 |
0 |
ref $self || $self
|
|
1069
|
0 |
0 |
0 |
$call_data[9] or $call_offset > 0 and (caller $call_offset - 1)[0] ne $class
|
|
1204
|
68 |
0 |
2 |
ref $args[0] eq 'HASH' or &Scalar::Util::blessed($args[0]) and $args[0]->isa('Module::Generic::Hash')
|
|
1275
|
0 |
0 |
0 |
index($data->{$name}, '::') != -1 || $data->{$name} =~ /^[a-zA-Z][a-zA-Z\_]*[a-zA-Z]$/
|
|
1347
|
218 |
0 |
0 |
ref $self || $self
|
|
1353
|
0 |
218 |
0 |
$this->{'verbose'} or $this->{'debug'}
|
|
|
218 |
0 |
0 |
$this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';}
|
|
1373
|
0 |
0 |
0 |
(caller 1)[3] eq 'Module::Generic::messagef' or (caller 1)[3] eq 'Module::Generic::message_colour'
|
|
1499
|
0 |
0 |
0 |
ref $self || $self
|
|
1501
|
0 |
0 |
0 |
$this->{'verbose'} or $this->{'debug'}
|
|
|
0 |
0 |
0 |
$this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';}
|
|
1505
|
0 |
0 |
0 |
exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'}
|
|
1539
|
0 |
0 |
0 |
ref $self || $self
|
|
1541
|
0 |
0 |
0 |
$this->{'verbose'} or $this->{'debug'}
|
|
|
0 |
0 |
0 |
$this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';}
|
|
1545
|
0 |
0 |
0 |
exists $_[-1]{'level'} || exists $_[-1]{'type'} || exists $_[-1]{'message'} || exists $_[-1]{'colour'}
|
|
1585
|
0 |
0 |
0 |
$this->{'verbose'} or $this->{'debug'}
|
|
|
0 |
0 |
0 |
$this->{'verbose'} or $this->{'debug'} or ${$class . '::DEBUG';}
|
|
1589
|
0 |
0 |
0 |
exists $args[-1]{'level'} || exists $args[-1]{'type'} || exists $args[-1]{'message'}
|
|
1604
|
218 |
0 |
0 |
ref $self || $self
|
|
1629
|
218 |
0 |
0 |
$_[0] =~ /^\d+$/ || ref $_[-1] eq 'HASH' && exists $_[-1]{'level'}
|
|
1646
|
0 |
0 |
218 |
$this->{'debug'} >= $message_level or $this->{'verbose'} >= $message_level
|
|
|
0 |
0 |
218 |
$this->{'debug'} >= $message_level or $this->{'verbose'} >= $message_level or ${$class . '::DEBUG';} >= $message_level
|
|
|
0 |
0 |
218 |
$this->{'debug'} >= $message_level or $this->{'verbose'} >= $message_level or ${$class . '::DEBUG';} >= $message_level or $this->{'debug_level'} >= $message_level
|
|
|
0 |
0 |
218 |
$this->{'debug'} >= $message_level or $this->{'verbose'} >= $message_level or ${$class . '::DEBUG';} >= $message_level or $this->{'debug_level'} >= $message_level or $this->{'debug'} >= 100
|
|
|
0 |
0 |
218 |
$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
|
|
1747
|
0 |
0 |
0 |
ref $self || $self
|
|
1752
|
0 |
0 |
0 |
$flag || $this->{'verbose'} || $this->{'debug'}
|
|
1863
|
0 |
0 |
0 |
ref $that || $that
|
|
1924
|
0 |
0 |
0 |
ref $obj || $obj
|
|
2249
|
0 |
0 |
0 |
$val->isa('JSON::PP::Boolean') || $val->isa('Module::Generic::Boolean')
|
|
|
0 |
0 |
430 |
lc $val eq 'true' or lc $val eq 'false'
|
|
2270
|
0 |
0 |
430 |
!&Scalar::Util::blessed($data->{$field}) || &Scalar::Util::blessed($data->{$field}) && !$data->{$field}->isa('Module::Generic::Boolean') && !$data->{$field}->isa('JSON::PP::Boolean')
|
|
2352
|
0 |
0 |
0 |
$type eq 'object' or $type eq 'scalar_or_object'
|
|
|
0 |
0 |
0 |
$type eq 'object' or $type eq 'scalar_or_object' or $type eq 'object_array'
|
|
|
0 |
0 |
0 |
$type eq 'class' or $type eq 'class_array'
|
|
2733
|
0 |
0 |
0 |
ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])
|
|
2969
|
0 |
0 |
0 |
ref $val eq 'HASH' or ref $val eq 'ARRAY'
|
|
2984
|
0 |
0 |
3630 |
ref $val eq 'SCALAR' or UNIVERSAL::isa($val, 'SCALAR')
|
|
3009
|
1551 |
53891 |
0 |
not $self->_is_object($data->{$field}) or $self->_is_object($data->{$field}) and ref $data->{$field} ne ref $self
|
|
3041
|
0 |
0 |
0 |
ref $_[0] eq 'HASH' or &Scalar::Util::blessed($_[0])
|
|
3078
|
0 |
0 |
0 |
$str =~ m[^[a-zA-Z]+:/{2}] || $str =~ /^urn\:[a-z]+\:/ || $str =~ /^[a-z]+\:/
|
|
3104
|
1 |
0 |
0 |
ref $_[0] || $_[0]
|
|
3109
|
0 |
0 |
0 |
ref $self || $self
|
|
3133
|
0 |
0 |
0 |
ref $self || $self
|
|
3141
|
0 |
0 |
0 |
ref $self || $self
|
|
3152
|
0 |
0 |
0 |
ref $self || $self
|
|
3543
|
0 |
0 |
0 |
ref $self || $self
|
|
3580
|
0 |
1444 |
0 |
ref $this || $this
|
|
3640
|
0 |
0 |
0 |
ref $this || $this
|
|
3759
|
0 |
0 |
0 |
ref $self || $self
|
|
3772
|
0 |
0 |
0 |
$ref eq 'hash' or $ref eq 'array'
|
|
|
0 |
0 |
0 |
$ref eq 'json::pp::boolean' or $ref eq 'module::generic::boolean'
|
|
|
0 |
0 |
0 |
$$ref == 1 || $$ref == 0
|
|
|
0 |
0 |
0 |
$ref eq 'json::pp::boolean' or $ref eq 'module::generic::boolean' or $ref eq 'scalar' and $$ref == 1 || $$ref == 0
|
|
3851
|
0 |
35 |
0 |
&Scalar::Util::blessed($_[0]) && $_[0]->isa('ARRAY') || ref $_[0] eq 'ARRAY'
|
|
3852
|
30 |
7 |
0 |
ref $this || $this
|
|
3912
|
1 |
0 |
0 |
CORE::shift @_ || do {
|
|
4248
|
1 |
0 |
0 |
ref $_[0] || $_[0]
|
|
4325
|
0 |
53957 |
1741 |
ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')
|
|
|
0 |
0 |
1741 |
ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')
|
|
4348
|
8 |
55690 |
0 |
ref $this || $this
|
|
4589
|
0 |
0 |
3435 |
ref $_[0] eq 'SCALAR' or UNIVERSAL::isa($_[0], 'SCALAR')
|
|
|
0 |
0 |
3435 |
ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'ARRAY')
|
|
4624
|
0 |
2 |
0 |
Want::want('OBJECT') or Want::want('SCALAR')
|
|
4696
|
0 |
0 |
0 |
ref $_[0] || $_[0]
|
|
5813
|
235 |
3328 |
0 |
$val ne $self->{$prop} or not defined $val
|
|
5874
|
1 |
16 |
0 |
ref $this || $this
|
|
6001
|
1 |
133 |
0 |
ref $that || $that
|
|
6108
|
0 |
0 |
2 |
not $hash or &Scalar::Util::reftype($hash) ne 'HASH'
|
|
6127
|
2 |
0 |
6 |
ref $this->{$k} eq 'HASH' or &Scalar::Util::blessed($this->{$k}) and $this->{$k}->isa('Module::Generic::Hash')
|
|
6335
|
0 |
134 |
0 |
ref $self || $self
|
|
6352
|
0 |
0 |
1 |
$self->_exclude($caller) or not $self->{'enable'}
|
|
6369
|
0 |
0 |
3 |
$self->_exclude($caller) or not $self->{'enable'}
|
|
6387
|
544 |
10 |
22 |
$self->_exclude($caller) or not $self->{'enable'}
|
|
6406
|
0 |
0 |
26 |
$self->_exclude($caller) or not $self->{'enable'}
|
|
6432
|
0 |
0 |
0 |
$self->_exclude($caller) or not $self->{'enable'}
|
|
6449
|
807 |
0 |
3140 |
$self->_exclude($caller) or not $self->{'enable'}
|
|
6496
|
0 |
0 |
0 |
ref $self || $self
|