ABELTJE / Test-Smoke-1.70_04 / lib / Test / Smoke / App / Archiver.pm 

            

              
1
2
3
4
5
6
7
8
9
—
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
—
34
35
36
37
38
39
40
41
42
43
44
45
46
47
—
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

              
package Test::Smoke::App::Archiver;
use warnings;
use strict;
our $VERSION = '0.001';
use base 'Test::Smoke::App::Base';
use Test::Smoke::Archiver;
=head1 NAME
Test::Smoke::App::Archiver - The tsarchive.pl application.
=head1 DESCRIPTION
=head2 Test::Smoke::App::Archiver->new()
Creates a new attribute C<archiver> of class L<Test::Smoke::Archiver>.
=cut
sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    $self->{_archiver} = Test::Smoke::Archiver->new(
        $self->options,
        v => $self->option('verbose'),
    );
    return $self;
}
=head2 $archiver->run()
Calls C<< $self->archiver->archive_files() >>.
=cut
sub run {
    my $self = shift;
    $self->archiver->archive_files();
}
1;
=head1 COPYRIGHT
(c) 2002-2013, Abe Timmerman <abeltje@cpan.org> All rights reserved.
With contributions from Jarkko Hietaniemi, Merijn Brand, Campo
Weijerman, Alan Burlison, Allen Smith, Alain Barbet, Dominic Dunlop,
Rich Rauenzahn, David Cantrell.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
See:
=over 4
=item * L<http://www.perl.com/perl/misc/Artistic.html>
=item * L<http://www.gnu.org/copyleft/gpl.html>
=back
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
=cut