view release on metacpan or  search on metacpan

lib/Archive/Libarchive/Compress.pm  view on Meta::CPAN

    if(-d $path) {
      foreach my $child (sort { $a->basename cmp $b->basename } $path->children) {
        $self->_iterate($w, $e, $child);
      }
    } elsif(-f $path) {
      $e->clear;
      $e->set_pathname("$path");
      $e->set_filetype('reg');
      my $stat = FFI::C::Stat->new("$path");
      $e->copy_stat($stat);

      if($self->{entry}->($e)) {
        my $ret = $w->write_header($e);

        if($ret == ARCHIVE_WARN) {
          Carp::carp($w->error_string);
        } elsif($ret < ARCHIVE_WARN) {
          Carp::croak($w->error_string);
        }