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 ? : |