blib/lib/HTML/Email/Obfuscate.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 22 | 32 | 68.7 |
line | true | false | branch |
---|---|---|---|
136 | 0 | 3 | ref $_[0] eq 'HASH' ? : |
146 | 1 | 2 | if $args{'javascript'} |
147 | 1 | 2 | if $args{'lite'} |
148 | 1 | 2 | if $args{'lite'} |
167 | 3 | 0 | defined $_[0] ? : |
168 | 3 | 0 | ref $either ? : |
0 | 3 | unless my $self = ref $either ? $either : $either->new(@_) | |
190 | 3 | 0 | defined $_[0] ? : |
191 | 3 | 0 | ref $either ? : |
0 | 3 | unless my $self = ref $either ? $either : $either->new(@_) | |
201 | 46 | 2 | unless rand 1 < 0.1 |
214 | 3 | 45 | if $char eq '@' |
215 | 3 | 42 | if $char eq '.' |
219 | 5 | 37 | rand 1 < 0.2 ? : |
228 | 0 | 2 | $$self{'javascript'} ? : |
238 | 0 | 0 | rand > 0.5 ? : |