Pake::Rule - Pake::Rule documentation

pake documentation

Contained in the pake distribution.

Index

NAME
SYNOPSIS
Description

Code Index:

package Pake::Rule
- new
__END__
EOF

NAME

Pake::Rule

SYNOPSIS

Right now Rules should not be extended.

Description

Rule, executes if the the specified task does not exists and the rule matches the task name

pake documentation

Contained in the pake distribution.

package Pake::Rule;

use strict;
use warnings;

sub new{
   my $proto = shift;
   my $class = ref($proto) || $proto;
   my $pattern = shift;
   my $source = shift;
   my $code = sub {};
   $code = shift if ref($_[0]) eq "CODE";

   my $self  = {};

   $self->{"pattern"} = $pattern;
   $self->{"code"} = $code;
   $self->{"source"} = $source;

   bless ($self, $class);
   Pake::Application::add_rule($self);
   return $self;   
}

1;
__END__