Mercurial > pub > Impl
view Lib/IMPL/Test/Straps/ShellExecutor.pm @ 226:b6cde007a175
Added resource contract
author | sergey |
---|---|
date | Wed, 05 Sep 2012 15:10:26 +0400 |
parents | 4267a2ac3d46 |
children |
line wrap: on
line source
package IMPL::Test::Straps::ShellExecutor; use strict; use warnings; use parent qw(IMPL::Object IMPL::Object::Serializable); if ($^O =~ /win32/i) { require Win32::Console; } sub Execute { my ($this,$file) = @_; my $h; if ($^O =~ /win32/i) { Win32::Console::OutputCP(65001); unless ( open $h,'-|',$file ) { return undef; } binmode $h,':encoding(utf-8)'; } else { unless ( open $h,'-|',$file ) { return undef; } } return $h; } 1;