view release on metacpan or  search on metacpan

lib/Archive/Rar/Passthrough.pm  view on Meta::CPAN

  my %args = @_;

  my $self = {
    rar    => 'rar',
    stdout => '',
    stderr => '',
    ( ref($proto) ? %$proto : () ),
  };
  $self->{rar} = $args{rar} if exists $args{rar}; 

  bless $self => $class;
  return() if not $self->{rar} = $self->_findbin();
  
  return $self;
}

sub get_binary { $_[0]->{rar} }
sub set_binary { $_[0]->{rar} = $_[1] if defined $_[1]; 1; }

sub get_stdout { $_[0]->{stdout} }
sub get_stderr { $_[0]->{stderr} }