blib/lib/WWW/Hashbang/Pastebin/Client.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 3 | 20 | 15.0 |
line | true | false | branch |
---|---|---|---|
14 | 0 | 1 | unless $args{'url'} |
15 | 0 | 1 | unless $args{'url'} =~ /^http/ |
18 | 1 | 0 | 'WWW::Hashbang::Pastebin::Client'->VERSION ? : |
32 | 0 | 0 | if ($args{'file'}) |
35 | 0 | 0 | unless open my $in, '<', $args{'file'} |
40 | 0 | 0 | unless $args{'paste'} |
46 | 0 | 0 | if $$post_response{'success'} |
62 | 0 | 0 | unless $id |
64 | 0 | 0 | if $id =~ /\Q$$self{'url'}\E/ |
72 | 0 | 0 | if $$get_response{'success'} |