| 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 |  | 214844 | use strict; | 
|  | 7 |  |  |  |  | 63 |  | 
|  | 7 |  |  |  |  | 210 |  | 
| 11 | 7 |  |  | 7 |  | 35 | use warnings; | 
|  | 7 |  |  |  |  | 14 |  | 
|  | 7 |  |  |  |  | 161 |  | 
| 12 |  |  |  |  |  |  |  | 
| 13 | 7 |  |  | 7 |  | 35 | use XSLoader (); | 
|  | 7 |  |  |  |  | 14 |  | 
|  | 7 |  |  |  |  | 98 |  | 
| 14 |  |  |  |  |  |  |  | 
| 15 | 7 |  |  | 7 |  | 6041 | use Archive::Tar::Builder::UserCache     (); | 
|  | 7 |  |  |  |  | 21 |  | 
|  | 7 |  |  |  |  | 140 |  | 
| 16 | 7 |  |  | 7 |  | 3101 | use Archive::Tar::Builder::HardlinkCache (); | 
|  | 7 |  |  |  |  | 21 |  | 
|  | 7 |  |  |  |  | 693 |  | 
| 17 |  |  |  |  |  |  |  | 
| 18 |  |  |  |  |  |  | our $VERSION = '2.5003_0001'; | 
| 19 |  |  |  |  |  |  |  | 
| 20 |  |  |  |  |  |  | XSLoader::load( 'Archive::Tar::Builder', $VERSION ); | 
| 21 |  |  |  |  |  |  |  | 
| 22 |  |  |  |  |  |  | sub archive { | 
| 23 | 31 |  |  | 31 | 1 | 28307 | my ( $self, @members ) = @_; | 
| 24 |  |  |  |  |  |  |  | 
| 25 | 31 | 100 |  |  |  | 411 | die('No paths to archive specified') unless @members; | 
| 26 |  |  |  |  |  |  |  | 
| 27 | 24 |  |  |  |  | 358 | return $self->archive_as( map { $_ => $_ } @members ); | 
|  | 24 |  |  |  |  | 2396 |  | 
| 28 |  |  |  |  |  |  | } | 
| 29 |  |  |  |  |  |  |  | 
| 30 |  |  |  |  |  |  | __END__ |