File Coverage

lib/Comics/Fetcher/Direct.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             #! perl
2              
3 1     1   724 use strict;
  1         2  
  1         23  
4 1     1   4 use warnings;
  1         1  
  1         18  
5 1     1   3 use utf8;
  1         2  
  1         4  
6 1     1   16 use Carp;
  1         2  
  1         56  
7              
8             package Comics::Fetcher::Direct;
9              
10 1     1   5 use parent qw(Comics::Fetcher::Cascade);
  1         1  
  1         4  
11              
12             =head1 NAME
13              
14             Comics::Fetcher::Direct -- Named url grabber
15              
16             =head1 DESCRIPTION
17              
18             This is just a wrapper around L.
19              
20             =cut
21              
22             our $VERSION = "1.00";
23              
24             1;