Schedule-Activity

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

	"prereqs" : {
		"configure": {
			"requires": {
				"Module::Build::Tiny": "0.040"
			}
		},
		"runtime": {
			"requires": {
				"perl": "5.10.0",
				"List::Util": "1.33",
				"Ref::Util": "0.010",
				"Scalar::Util": "1.39"
			},
			"suggests": {
				"Pod::Usage": "1.64"
			}
		},
		"test": {
			"requires": {
				"Test::More": "0.61"
			}

lib/Schedule/Activity.pm  view on Meta::CPAN

package Schedule::Activity;

use strict;
use warnings;
use Ref::Util qw/is_arrayref is_hashref is_plain_hashref/;
use Schedule::Activity::Annotation;
use Schedule::Activity::Attributes;
use Schedule::Activity::Message;
use Schedule::Activity::Node;
use Schedule::Activity::NodeFilter;

our $VERSION='0.2.6';

sub new {
	my ($ref,%opt)=@_;

lib/Schedule/Activity/Annotation.pm  view on Meta::CPAN

package Schedule::Activity::Annotation;

use strict;
use warnings;
use Ref::Util qw/is_hashref is_regexpref/;
use Scalar::Util qw/looks_like_number/;

our $VERSION='0.2.6';

my %property=map {$_=>undef} qw/message nodes before between p limit attributes note/;

sub new {
	my ($ref,%opt)=@_;
	my $class=ref($ref)||$ref;
	return bless(\%opt,$class);

lib/Schedule/Activity/Message.pm  view on Meta::CPAN

package Schedule::Activity::Message;

use strict;
use warnings;
use Ref::Util qw/is_arrayref is_hashref is_ref/;

our $VERSION='0.2.6';

my %property=map {$_=>undef} qw/message attributes names note/;

sub new {
	my ($ref,%opt)=@_;
	my $class=ref($ref)||$ref;
	my %self=(
		attributes=>$opt{attributes}//{},

lib/Schedule/Activity/NodeFilter.pm  view on Meta::CPAN

package Schedule::Activity::NodeFilter;

use strict;
use warnings;
use Ref::Util qw/is_plain_hashref/;

our $VERSION='0.2.6';

my %property=map {$_=>undef} qw/f attr op value boolean filters mod/;
my %matcher=(
	boolean=>\&matchBoolean,
	elapsed=>\&matchElapsed,
	value  =>\&matchValue,
	avg    =>\&matchValue,
);