| blib/script/logfile-tail | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 16 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 1 | 1 | if ($exit) { } |
| 34 | 1 | 7 | unless &Getopt::Long::GetOptions("status=s", \$status_path, "help", sub { usage(); } ) |
| 35 | 1 | 6 | if (@ARGV != 1) |
| 40 | 3 | 3 | if (defined $status_path) |
| 41 | 2 | 1 | if (-f $status_path) { } |
| 43 | 1 | 1 | if ($status_path =~ m[^/]) { } |
| 63 | 2 | 4 | unless (my $logfile = "Logfile::Tail"->new($logfile_name, "r", \%attr)) |
| 64 | 1 | 1 | if (@the_warning) { } |