| line |
true |
false |
branch |
|
38
|
13 |
5 |
unless my $validated = $class->_validate_abn($_[1]) |
|
47
|
5 |
42 |
if (&Params::Util::_INSTANCE($_[0], 'Business::AU::ABN')) |
|
52
|
14 |
28 |
if (&Params::Util::_CLASSISA($_[0], 'Business::AU::ABN')) |
|
69
|
44 |
16 |
$class->_string($_[0]) ? : |
|
74
|
4 |
40 |
if $abn =~ /\D/ |
|
79
|
8 |
32 |
if (length $abn == 14) { } |
|
|
8 |
24 |
elsif (length $abn != 11) { } |
|
80
|
0 |
8 |
unless ($abn, $group) = $abn =~ /^(\d{11})(\d{3})$/ |
|
84
|
4 |
4 |
if ($group eq '000') |
|
105
|
8 |
20 |
if (&List::Util::sum(@digits) % 89) |
|
110
|
0 |
20 |
unless $abn =~ s/^(\d{2})(\d{3})(\d{3})(\d{3})$/$1 $2 $3 $4/ |
|
111
|
4 |
16 |
length $group ? : |
|
133
|
40 |
0 |
defined $_[1] && $_[1] ? : |