File Coverage

blib/lib/MPE/Spoonfeed.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package MPE::Spoonfeed;

require 5.005_62;
use strict;
use warnings;

require Exporter;
require MPE::Process;
use MPE::File;

our @ISA = qw(Exporter MPE::Process);

our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
);

our $VERSION = '0.01';

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my @params;
  my @superparms;
  my $progname = shift;
  my %defaults = ( autocmd => '', autoactivate => 0, loadflag => 1);

  if (defined $_[0] && ref($_[0]) eq 'HASH') {
    @params = %{$_[0]};
  } else {
    @params = @_;
  }
  while (my $nextparm = shift @params) {
    my $nextparmval = shift @params;
    $nextparm =~ s/^-//;
    if (defined $defaults{lc $nextparm}) {
      $defaults{lc $nextparm} = $nextparmval;
    } else {
      push @superparms, $nextparm, $nextparmval;
    }
  }
  my $msgfilename = sprintf "T%03d%04d.PUB.SYS",
     $$ % 1000, int(rand(10000));
  my $msgfile = MPE::File->new(
     "$msgfilename,new;temp;rec=-32000,,v,ascii;msg");
  if (!defined($msgfile)) {
    print STDERR "Error creating msg file $msgfilename: $MPE_error\n";
    return undef;
  }
  $msgfile->fclose(0,0);
  system("callci 'file $msgfilename,oldtemp;multi;shr;del'");
  $msgfile = MPE::File->new("$msgfilename;acc=append");
  if (!defined($msgfile)) {
    print STDERR "Error opening msg file $msgfilename: $MPE_error\n";
    return undef;
  }
  my $self  = $class->SUPER::new($progname,
                        @superparms,
                        STDIN => "*$msgfilename",
                        loadflag => $defaults{loadflag});
  system("callci 'reset $msgfilename'");
  if (!defined($self) || $self == 0) {
    print STDERR "Error on CreateProcess: $MPE::Process::CreateStatus\n";
    return undef;
  }

  @{$self}{keys %defaults} = values %defaults;
  $$self{msgfile} = $msgfile;
  return bless $self, $class;
}

sub DESTROY {
  my $self = shift;
  $$self{msgfile}->fclose(0,0);
  $self->SUPER::DESTROY();
}

sub cmds {
  my $self = shift;
  my $msgfile = $$self{msgfile};
  for (@_) {
    if (!$msgfile->writerec($_)) {
      die "Error writing to msgfile: $MPE_error\n";
    }
  }
  if ($$self{autocmd}) {
    if (!$msgfile->writerec($$self{autocmd})) {
      die "Error writing to msgfile: $MPE_error\n";
    }
  }
  if ($$self{autoactivate}) {
    $self->activate(2);
  }
}

sub suppressboguswarning {
   print STDERR "Error on CreateProcess: $MPE::Process::CreateStatus\n";
}

sub cmdsactivate {
  my $self = shift;
  my $msgfile = $$self{msgfile};
  for (@_) {
    if (!$msgfile->writerec($_)) {
      die "Error writing to msgfile: $MPE_error\n";
    }
  }
  if ($$self{autocmd}) {
    if (!$msgfile->writerec($$self{autocmd})) {
      die "Error writing to msgfile: $MPE_error\n";
    }
  }
  $self->activate(2);
}


1;
__END__