File Coverage

blib/lib/Shell/EnvImporter/Result.pm

Criterion	Covered	Total	%
statement	36	42	85.7
branch	4	10	40.0
condition	0	6	0.0
subroutine	8	10	80.0
pod	2	3	66.6
total	50	71	70.4

package Shell::EnvImporter::Result;

use strict;
use warnings;
no warnings 'uninitialized';

use Shell::EnvImporter::Change;

use Class::MethodMaker 2.0 [
    new     => [qw(-hash -init new)],
    scalar  => [qw(
      shell_status
      command_status
      env_status

      shell_output
      command_output
      stderr
    )],
    array  => [qw(
      imported
    )],
    hash  => [qw(
      start_env

      changed
    )],
  ];

use constant DEFAULTS => (
  shell_status    => -255,
  command_status  => -255,
  env_status      => -255,
);


##########
sub init {
##########
  my $self     = shift;
  my %args     = @_;
  my %defaults = (DEFAULTS);

  # Set supplied fields with defaults
  my @fields = (keys %args, keys %defaults);
  my %fields; @fields{@fields} = (1) x @fields;
  @fields = keys %fields;

  foreach my $field (@fields) {
    if ($self->can($field)) {
      my $curval = $self->$field();
      my $arg    = exists($args{$field}) ? $args{$field} : $defaults{$field};
      if (ref($curval) =~ /ARRAY/) {
        $self->$field(@$arg);
      } elsif (ref($curval) =~ /HASH/) {
        $self->$field(%$arg);
      } else {
        $self->$field($arg);
      }
    }
  }

  # Copy the environment when constructed
  $self->_copy_env;


}


############
sub failed {
############
  my $self = shift;

  return $self->shell_status ||
         $self->command_status ||
         $self->env_status;

}


###############
sub succeeded {
###############
  my $self = shift;

  return $self->shell_status   == 0 and
         $self->command_status == 0 and
         $self->env_status     == 0;

}





##############################################################################
########################### Private subroutines  #############################
##############################################################################


###############
sub _copy_env {
###############
  my $self = shift;

  my %envbak;
  @envbak{keys %ENV} = values %ENV;

  $self->start_env(%envbak);

}




1;


__END__