File Coverage

blib/lib/Archive/Tar/Builder.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Archive::Tar::Builder;
2              
3             # Copyright (c) 2019, cPanel, L.L.C.
4             # All rights reserved.
5             # http://cpanel.net/
6             #
7             # This is free software; you can redistribute it and/or modify it under the same
8             # terms as Perl itself. See the LICENSE file for further details.
9              
10 7     7   205198 use strict;
  7         70  
  7         175  
11 7     7   28 use warnings;
  7         14  
  7         161  
12              
13 7     7   35 use XSLoader ();
  7         7  
  7         168  
14              
15 7     7   2933 use Archive::Tar::Builder::UserCache ();
  7         21  
  7         119  
16 7     7   2457 use Archive::Tar::Builder::HardlinkCache ();
  7         14  
  7         567  
17              
18             our $VERSION = '2.5005';
19              
20             XSLoader::load( 'Archive::Tar::Builder', $VERSION );
21              
22             sub archive {
23 31     31 1 85838 my ( $self, @members ) = @_;
24              
25 31 100       211 die('No paths to archive specified') unless @members;
26              
27 24         294 return $self->archive_as( map { $_ => $_ } @members );
  24         1797  
28             }
29              
30             __END__