File Coverage

blib/lib/Mac/CocoaDialog.pm

Criterion	Covered	Total	%
statement	65	92	70.6
branch	9	30	30.0
condition	2	3	66.6
subroutine	18	23	78.2
pod	9	9	100.0
total	103	157	65.6

package Mac::CocoaDialog;

use version; our $VERSION = qv('0.0.3');

use warnings;
use strict;
use Carp;
use English qw( -no_match_vars );
use IO::Handle;

# Module implementation here
sub AUTOLOAD {
   my $self = shift;

   (my $name = our $AUTOLOAD) =~ s{.*::}{}mxs;
   $name =~ tr/_/-/;

   return (ref($self) . '::Runner')->new(%$self, runmode => $name);
} ## end sub AUTOLOAD

sub new {
   my $package = shift;
   my %opts = (@_ == 1) ? %$_ : @_;

   if (exists $opts{path}) {
      croak "cannot find CocoaDialog in provided path"
        unless -x $opts{path};
   }
   else {
      my $canonic =
        '/Applications/CocoaDialog.app/Contents/MacOS/CocoaDialog';
      for my $candidate ($canonic, "$ENV{HOME}/$canonic") {
         next unless -x $candidate;
         $opts{path} = $candidate;
         last;
      }
      croak "cannot find CocoaDialog, please provide full path to it"
        unless -x $opts{path};
   } ## end else [ if (exists $opts{path})

   return bless {path => $opts{path}, cmdline => []}, $package;
} ## end sub new

sub push_params {
   my $self = shift;
   push @{$self->{cmdline}}, @_;
}

sub command_line {
   my $self = shift;
   return @{$self->{cmdline}} unless @_;

   return @_ unless @_ == 2 && ref($_[1]) eq 'HASH';

   my ($cmd, $h) = @_;
   return $cmd, map {
      (my $k = $_) =~ tr/_/-/;
      ('--' . $k) => (ref($h->{$_}) ? @{$h->{$_}} : $h->{$_})
   } keys %$h;
} ## end sub command_line

sub path { return $_[0]->{path} }

sub pipe_from {
   my $self = shift;
   open my $fh, '-|', $self->path(), $self->command_line(@_)
     or croak "open() for output pipe: $OS_ERROR";
   return $fh;
} ## end sub pipe_from

sub qx {
   my $self = shift;
   my $fh   = $self->pipe_from(@_);
   return <$fh> if wantarray;
   return join '', <$fh>;
} ## end sub qx

sub pipe_to {
   my $self = shift;
   open my $fh, '|-', $self->path(), $self->command_line(@_)
     or croak "open() for input pipe: $OS_ERROR";
   $fh->autoflush(1);  # autoflush by default, it's what you want
   return $fh;
} ## end sub pipe_to

sub background_system {
   my $self = shift;

   my $pid = fork();
   die "fork(): $OS_ERROR" unless defined $pid;
   return if $pid;    # father returns immediately

   exec {$self->path()} $self->path(), $self->command_line(@_)
     or die "exec(): $OS_ERROR";
   exit 1;
} ## end sub background_system

sub foreground_system {
   my $self = shift;
   system {$self->path()} $self->path(), $self->command_line(@_);
}

{
   no warnings;
   *grab       = \&qx;
   *foreground = \&foreground_system;
   *background = \&background_system;
}

package Mac::CocoaDialog::Runner;
use strict;
use warnings;
use English qw( -no_match_vars );
use base qw( Mac::CocoaDialog );

sub AUTOLOAD {
   my $self = shift;

   (my $name = our $AUTOLOAD) =~ s{.*::}{}mxs;
   $name =~ tr/_/-/;
   $self->push_params('--' . $name, @_);

   return $self;
} ## end sub AUTOLOAD

sub new {
   my $package = shift;
   my %opts = (@_ == 1) ? %$_ : @_;

   my $self = $package->SUPER::new(%opts);
   $self->push_params($opts{runmode});

   return $self;
} ## end sub new

1;    # Magic true value required at end of module
__END__