| line |
true |
false |
branch |
|
103
|
7 |
540 |
if (@params == 1 and ref $params[0])
|
|
106
|
1 |
1 |
ref $params[0] eq 'HASH' ? :
|
|
|
5 |
2 |
ref $params[0] eq 'ARRAY' ? :
|
|
111
|
543 |
3 |
if (@params == 1)
|
|
115
|
3 |
540 |
unless $spec =~ /$r_spec/msx
|
|
122
|
2 |
538 |
if ($null)
|
|
126
|
285 |
255 |
if ($options)
|
|
130
|
243 |
42 |
if ($option eq '=') { }
|
|
|
2 |
40 |
elsif ($options eq '++') { }
|
|
|
4 |
36 |
elsif ($option eq '+') { }
|
|
146
|
243 |
42 |
if ($type)
|
|
150
|
192 |
51 |
if (length $type == 1) { }
|
|
|
48 |
3 |
elsif (length $type == 2) { }
|
|
155
|
18 |
30 |
$ref eq '%' ? :
|
|
164
|
5 |
161 |
$text eq 'n' ? :
|
|
|
4 |
166 |
$text eq 'f' ? :
|
|
|
72 |
170 |
$text eq 'i' ? :
|
|
|
1 |
242 |
$text eq 'd' ? :
|
|
181
|
197 |
298 |
$params{'type'} ? :
|
|
|
48 |
495 |
$params{'type'} && $params{'ref'} ? :
|
|
183
|
2 |
541 |
if ($params{'nullable'})
|
|
200
|
35 |
56 |
$long ? :
|
|
203
|
67 |
24 |
if ($self->type) { }
|
|
|
8 |
16 |
elsif ($self->increment) { }
|
|
|
8 |
8 |
elsif ($self->negatable) { }
|
|
205
|
37 |
30 |
if (not defined $arg_data or length $arg_data == 0) { }
|
|
|
24 |
7 |
elsif ($arg_data and not $self->nullable) { }
|
|
206
|
3 |
32 |
if (not defined $args->[0] || $self->nullable or $args->[0] and $args->[0] =~ /^-/msx and not $self->type eq 'Int' || $self->type eq 'Num')
|
|
230
|
4 |
60 |
if ($self->ref and $self->ref eq 'HashRef')
|
|
237
|
2 |
62 |
if ($self->nullable and !defined($arg_data) || $arg_data eq '') { }
|
|
|
29 |
33 |
elsif ($self->type eq 'Int') { }
|
|
|
11 |
22 |
elsif ($self->type eq 'Num') { }
|
|
|
1 |
21 |
elsif ($self->type ne 'Str') { }
|
|
241
|
2 |
27 |
unless $arg_data =~ /^ -? \d+ $/msx
|
|
244
|
1 |
10 |
unless $arg_data =~ /^ -? (?: \d* (?: [.]\d+ )? | \d+ ) $/msx
|
|
250
|
1 |
59 |
if ($self->values and not grep({$value eq $_;} @{$self->values;}))
|
|
258
|
10 |
49 |
if ($self->ref)
|
|
260
|
6 |
4 |
if ($self->ref eq 'ArrayRef') { }
|
|
275
|
2 |
6 |
$long && $long =~ /^no-/msx ? :
|