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": {
				"Data::Dumper": "2.183",
				"Getopt::Long": "2.58",
				"JSON::MaybeXS": "1.004000",
				"Pod::Usage": "1.64"
			}
		},
		"test": {

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

package Schedule::Activity;

use strict;
use warnings;
use List::Util qw/any/;
use Ref::Util qw/is_arrayref is_hashref is_plain_hashref is_ref/;
use Scalar::Util qw/blessed/;
use Schedule::Activity::Annotation;
use Schedule::Activity::Attributes;
use Schedule::Activity::Message;
use Schedule::Activity::Node;
use Schedule::Activity::NodeFilter;

our $VERSION='0.3.0';

sub new {

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 is_ref/;
use Scalar::Util qw/looks_like_number/;

our $VERSION='0.3.0';

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

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

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

package Schedule::Activity::Attribute;

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

our $VERSION='0.3.0';

my %types=(
	int=>{
		change =>\&_changeInt,
		average=>\&_avgInt,
		changes=>{map {$_=>undef} qw/type value set incr decr tm note/},
	},
	bool=>{

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

package Schedule::Activity::Attribute::Report;

use strict;
use warnings;
use Scalar::Util qw/looks_like_number/;
use Ref::Util qw/is_ref/;

our $VERSION='0.3.0';

sub new {
	my ($ref,%schedule)=@_;
	my $class=is_ref($ref)||$ref;
	my %self=%schedule; # shallow
	return bless(\%self,$class);
}

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

package Schedule::Activity::Attributes;

use strict;
use warnings;
use Ref::Util qw/is_ref/;
use Schedule::Activity::Attribute;

our $VERSION='0.3.0';

sub new {
	my ($ref,%opt)=@_;
	my $class=is_ref($ref)||$ref;
	my %self=(
		attr =>{},
		stack=>[],

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.3.0';

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

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

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

package Schedule::Activity::Node;

use strict;
use warnings;
use List::Util qw/any/;
use Ref::Util qw/is_arrayref is_hashref is_ref/;
use Scalar::Util qw/blessed looks_like_number/;

our $VERSION='0.3.0';

my %property=map {$_=>undef} qw/tmmin tmavg tmmax next finish message attribute note attributes require/;

my %defaults=(
	'tmmax/tmavg'=>5/4,
	'tmavg/tmmin'=>4/3,
	'tmmax/tmmin'=>5/3,

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

package Schedule::Activity::NodeFilter;

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

our $VERSION='0.3.0';

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