package Shell::EnvImporter::Shell::bash; use strict; use warnings; no warnings 'uninitialized'; use base qw(Shell::EnvImporter::Shell::sh); use Class::MethodMaker 2.0 [ new => [qw(-init new)], ]; ########## sub init { ########## my $self = shift; my %args = @_; $self->SUPER::init( name => 'bash', flags => [qw(-norc -noprofile -c)], %args, ); } 1;