view release on metacpan or  search on metacpan

Pake/Syntax.pm  view on Meta::CPAN

	unless(defined $return){
	    print "Couldn't do $file: No such a file or diectory\n";
	    exit 0;
	}
  
	die "couldn't run $file"       unless $return;
    }
}
#--------------------------------------------------

sub task(&@) {
    my $code = shift;
    my %dependencies = @_;

    for my $task_name (keys(%dependencies)){
	my $task = Pake::Task->new($code,$task_name,$dependencies{$task_name});
    }
}
#--------------------------------------------------

sub file(&@) {
    my $code = shift;
    my %dependencies = @_;

    for my $task_name (keys(%dependencies)){
	my $task = Pake::FileTask->new($code,$task_name,$dependencies{$task_name});
    }
}
#--------------------------------------------------

sub rule(&@) {
    my $code = shift;
    my %rules = @_;

    for my $outname (keys(%rules)){
	my $rule = Pake::Rule->new($outname, $rules{$outname}, $code);
    }
}
#--------------------------------------------------

sub directory(&@){
    my $code = shift;
    my %dependencies = @_;

    for my $directory (keys(%dependencies)){
	my $task = Pake::Directory->new($code,$directory,$dependencies{$directory});
    }
}

#--------------------------------------------------

sub multi_task(&@) {
    my $code = shift;
    my %dependencies = @_;

    for my $task_name (keys(%dependencies)){
	my $task = Pake::MultiTask->new($code,$task_name,$dependencies{$task_name});
    }
}

#--------------------------------------------------

Pake/Task.pm  view on Meta::CPAN

package Pake::Task;

our $VERSION = '0.2';

use Scalar::Util qw(blessed);
###################################################
# Task Object source
#--------------------------------------------------
sub new(&$@){
   my $proto = shift;
   my $class = ref($proto) || $proto;

   my $code = shift if ref($_[0]) eq "CODE";
   my $name = shift;
   my $self  = {};

   $self->{"name"} = $name;
   $self->{"code"} = $code;
   $self->{"pre"} = shift;

Pake/TestLib/TestTask.pm  view on Meta::CPAN

	       @test_files = splice(@test_files,2);
	       @test_files = map { $test_dir . "/" . $_} @test_files;

	       print "Running test_files: @test_files\n";

	       use Test::Harness;
	       runtests(@test_files);
	};
};

sub new(&){
   my $proto = shift;
   my $class = ref($proto) || $proto;

   my $test_dir = shift;

   my $self  = {};

   $self->{"name"} = "Test";
   $self->{"code"} = run_from_dir($test_dir);
   $self->{"pre"} = [];