view release on metacpan or  search on metacpan

lib/App/cdif/Command.pm  view on Meta::CPAN

	$debug;
    }
}

my %default_option = (
    read_error => 0,
);

sub new {
    my $class = shift;
    my $obj = $class->SUPER::new;
    $obj->{OPTION} = { %default_option };
    $obj->command(@_) if @_;
    $obj;
}

sub command {
    my $obj = shift;
    if (@_) {
	$obj->{COMMAND} = [ @_ ];
	$obj;

lib/App/cdif/Command/OSAscript.pm  view on Meta::CPAN

use utf8;
use Carp;
use Data::Dumper;

sub new {
    my($class, %opt) = @_;
    my @command = qw(osascript);
    if (my $lang = delete $opt{LANG}) {
	push @command, "-l", $lang;
    }
    my $obj = $class->SUPER::new(%opt);
    $obj->command("@command");
    $obj;
}

sub exec {
    my $obj = shift;
    my $script = shift;
    $obj->setstdin($script)->update->data;
}