File Coverage

blib/lib/Test/Smoke/App/Archiver.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Test::Smoke::App::Archiver;
2 2     2   106286 use warnings;
  2         14  
  2         67  
3 2     2   10 use strict;
  2         4  
  2         70  
4              
5             our $VERSION = '0.001';
6              
7 2     2   14 use base 'Test::Smoke::App::Base';
  2         5  
  2         571  
8              
9 2     2   873 use Test::Smoke::Archiver;
  2         5  
  2         271  
10              
11             =head1 NAME
12              
13             Test::Smoke::App::Archiver - The tsarchive.pl application.
14              
15             =head1 DESCRIPTION
16              
17             =head2 Test::Smoke::App::Archiver->new()
18              
19             Creates a new attribute C of class L.
20              
21             =cut
22              
23             sub new {
24 2     2 1 13 my $class = shift;
25 2         54 my $self = $class->SUPER::new(@_);
26              
27 2         21 $self->{_archiver} = Test::Smoke::Archiver->new(
28             $self->options,
29             v => $self->option('verbose'),
30             );
31              
32 2         28 return $self;
33             }
34              
35             =head2 $archiver->run()
36              
37             Calls C<< $self->archiver->archive_files() >>.
38              
39             =cut
40              
41             sub run {
42 1     1 1 910 my $self = shift;
43              
44 1         11 $self->archiver->archive_files();
45             }
46              
47             1;
48              
49             =head1 COPYRIGHT
50              
51             (c) 2002-2013, Abe Timmerman All rights reserved.
52              
53             With contributions from Jarkko Hietaniemi, Merijn Brand, Campo
54             Weijerman, Alan Burlison, Allen Smith, Alain Barbet, Dominic Dunlop,
55             Rich Rauenzahn, David Cantrell.
56              
57             This library is free software; you can redistribute it and/or modify
58             it under the same terms as Perl itself.
59              
60             See:
61              
62             =over 4
63              
64             =item * L
65              
66             =item * L
67              
68             =back
69              
70             This program is distributed in the hope that it will be useful,
71             but WITHOUT ANY WARRANTY; without even the implied warranty of
72             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
73              
74             =cut