PNG  IHDR;IDATxܻn0K )(pA 7LeG{ §㻢|ذaÆ 6lذaÆ 6lذaÆ 6lom$^yذag5bÆ 6lذaÆ 6lذa{ 6lذaÆ `}HFkm,mӪôô! x|'ܢ˟;E:9&ᶒ}{v]n&6 h_tڠ͵-ҫZ;Z$.Pkž)!o>}leQfJTu іچ\X=8Rن4`Vwl>nG^is"ms$ui?wbs[m6K4O.4%/bC%t Mז -lG6mrz2s%9s@-k9=)kB5\+͂Zsٲ Rn~GRC wIcIn7jJhۛNCS|j08yiHKֶۛkɈ+;SzL/F*\Ԕ#"5m2[S=gnaPeғL lذaÆ 6l^ḵaÆ 6lذaÆ 6lذa; _ذaÆ 6lذaÆ 6lذaÆ RIENDB` package Net::OpenSSH::ShellQuoter; use strict; use warnings; use Carp; use Net::OpenSSH::ModuleLoader; my %alias = (bash => 'POSIX', sh => 'POSIX', ksh => 'POSIX', ash => 'POSIX', dash => 'POSIX', pdksh => 'POSIX', mksh => 'POSIX', zsh => 'POSIX', tcsh => 'csh'); sub quoter { my ($class, $shell) = @_; $shell = 'POSIX' unless defined $shell; return $shell if ref $shell; if ($shell =~ /,/) { require Net::OpenSSH::ShellQuoter::Chain; return Net::OpenSSH::ShellQuoter::Chain->chain(split /\s*,\s*/, $shell); } else { $shell = $alias{$shell} if defined $alias{$shell}; $shell =~ /^\w+$/ or croak "bad quoting style $shell"; my $impl = "Net::OpenSSH::ShellQuoter::$shell"; _load_module($impl); return $impl->new; } } 1;