File Coverage

blib/lib/Goo/Thing/pm/Perl5Runner.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	20	65.0

#!/usr/bin/perl

package Goo::Thing::pm::Perl5Runner;

###############################################################################
# Nigel Hamilton
#
# Copyright Nigel Hamilton 2005
# All Rights Reserved
#
# Author:       Nigel Hamilton
# Filename:     Perl5Runner.pm
# Description:  Run a Perl5 program
#
# Date          Change
# ----------------------------------------------------------------------------
# 01/08/2005    Factored out of ProgramEditor as part of the new Goo
#
##############################################################################

use Goo::Object;
use Goo::Prompter;

use base qw(Goo::Object);


###############################################################################
#
# run - keep adding a thing to the program
#
###############################################################################

sub run {

    my ($this, $thing, $target) = @_;

    my $filename = $thing->get_full_path();
    my $name     = $thing->get_filename();

    Goo::Prompter::say("Running $filename ...");

    # execute perl
    print `/usr/bin/perl -w -I/home/search/shared/bin $filename`;

    Goo::Prompter::notify("Finished running $name. Press a key.");

}

1;


__END__

=head1 NAME

Goo::Thing::pm::Perl5Runner - Run a Perl5 program

=head1 SYNOPSIS

use Goo::Thing::pm::Perl5Runner;

=head1 DESCRIPTION



=head1 METHODS

=over

=item run

call /usr/bin/perl to run a Perl5 program

=back

=head1 AUTHOR

Nigel Hamilton <[e-mail]>

=head1 SEE ALSO