| line |
true |
false |
branch |
|
9
|
0 |
3 |
ref $_[0] ? : |
|
12
|
0 |
3 |
@_ == 1 ? : |
|
|
0 |
3 |
$meta->{'HAS_BUILDARGS'} ? : |
|
16
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless do {
my $tmp = $args->{'pid'};
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
|
0 |
3 |
if (exists $args->{'pid'}) |
|
19
|
0 |
0 |
if defined $_ and not ref $_ |
|
|
0 |
3 |
if @unknown and require Carp |
|
22
|
0 |
3 |
unless $meta->{'BUILD'} |
|
|
3 |
0 |
unless ($no_build) |
|
35
|
3 |
0 |
defined ${^GLOBAL_PHASE} ? : |
|
38
|
0 |
3 |
unless $meta->{'DEMOLISH'} |
|
45
|
0 |
0 |
if $e |
|
57
|
0 |
3 |
*{$_;}{'CODE'} ? : |
|
61
|
0 |
3 |
*{$_;}{'CODE'} ? : |
|
71
|
0 |
0 |
if exists $DOES{$role} |
|
72
|
0 |
0 |
if $role eq "Linux::Statm::Tiny" |
|
84
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
22 |
2 |
exists $_[0]{'data'} ? : |
|
|
0 |
24 |
@_ > 1 ? : |
|
91
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'data_bytes'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
95
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'data_kb'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
99
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'data_mb'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
103
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'dt'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
110
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'dt_bytes'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
114
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'dt_kb'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
118
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'dt_mb'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
122
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'lib'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
129
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'lib_bytes'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
133
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'lib_kb'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
137
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
0 |
exists $_[0]{'lib_mb'} ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
140
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
1 |
2 |
exists $_[0]{'pid'} ? : |
|
|
0 |
3 |
@_ > 1 ? : |
|
144
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
44 |
2 |
exists $_[0]{'resident'} ? : |
|
|
0 |
46 |
@_ > 1 ? : |
|
153
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
2 |
2 |
exists $_[0]{'resident_bytes'} ? : |
|
|
0 |
4 |
@_ > 1 ? : |
|
160
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
2 |
2 |
exists $_[0]{'resident_kb'} ? : |
|
|
0 |
4 |
@_ > 1 ? : |
|
167
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
2 |
2 |
exists $_[0]{'resident_mb'} ? : |
|
|
0 |
4 |
@_ > 1 ? : |
|
174
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
22 |
2 |
exists $_[0]{'share'} ? : |
|
|
0 |
24 |
@_ > 1 ? : |
|
181
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'share_bytes'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
185
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'share_kb'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
189
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'share_mb'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
193
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
44 |
2 |
exists $_[0]{'size'} ? : |
|
|
0 |
46 |
@_ > 1 ? : |
|
202
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
2 |
2 |
exists $_[0]{'size_bytes'} ? : |
|
|
0 |
4 |
@_ > 1 ? : |
|
209
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
2 |
2 |
exists $_[0]{'size_kb'} ? : |
|
|
0 |
4 |
@_ > 1 ? : |
|
216
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
2 |
2 |
exists $_[0]{'size_mb'} ? : |
|
|
0 |
4 |
@_ > 1 ? : |
|
222
|
7 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
7 |
unless do {
my $tmp = $i;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} |
|
|
1 |
0 |
if (ref $default_value eq "ARRAY") |
|
|
0 |
1 |
unless (do {
package Linux::Statm::Tiny::Mite;
if (ref $default_value eq "ARRAY") {
my $ok = 1;
foreach my $i (@{$default_value;}) {
$ok = 0, last unless do {
my $tmp = $i;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
};
} ;
$ok;
}
}) |
|
|
25 |
1 |
exists $_[0]{'statm'} ? : |
|
|
0 |
26 |
@_ > 1 ? : |
|
227
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
22 |
2 |
exists $_[0]{'text'} ? : |
|
|
0 |
24 |
@_ > 1 ? : |
|
234
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'text_bytes'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
238
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'text_kb'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |
|
242
|
2 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
2 |
unless (do {
my $tmp = $default_value;
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}) |
|
|
0 |
2 |
exists $_[0]{'text_mb'} ? : |
|
|
0 |
2 |
@_ > 1 ? : |