Mercurial > pub > Impl
view Lib/IMPL/Test/Straps/ShellExecutor.pm @ 204:d63f9a92d6d4
+IMPL::Config::Include - simple way to include external config
*IMPL::Web::Handler::TTView - finished template selecting mechanism (not tested)
author | sergey |
---|---|
date | Wed, 02 May 2012 17:42:47 +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;