/usr/local/CPAN/Shell-EnvImporter/Shell/EnvImporter/Shell/perl.pm

• package Shell::EnvImporter::Shell::perl
  • init
  • echo_command
• EOF

package Shell::EnvImporter::Shell::perl;

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

use base qw(Shell::EnvImporter::Shell);

use Class::MethodMaker 2.0 [
    new     => [qw(-init new)],
  ];

##########
sub init {
##########
  my $self = shift;
  my %args = @_;

  $self->SUPER::init(
    name      => 'perl',
    flags     => [qw(-e)],

    sourcecmd => 'do',
    envcmd    => 'while (($k,$v) = each(%ENV)) { print "$k=$v\n"}',

    statusvar => '@{[$!+0]}',

    %args,
  );

}


##################
sub echo_command {
##################
  my $self = shift;
  my $str  = $self->dquote("@_\\n");

  return "print $str";

}


1;