File Coverage

blib/lib/Schedule/Easing/Block.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	0	5	0.0
total	41	49	83.6

package Schedule::Easing::Block;

use strict;
use warnings;
use parent qw/Schedule::Easing::Ease/;

our $VERSION='0.1.4';

sub _default_keys {
	my ($self)=@_;
	return (
		$self->SUPER::_default_keys(),
	);
}
sub _default {
	my ($self)=@_;
	return (
		$self->SUPER::_default(),
		match=>qr/.*/,
	);
}

sub new {
	my ($ref,%opt)=@_;
	my $class=ref($ref)||$ref;
	my %self=(
		type =>'block',
		$class->_default(),
		(ref($ref)?%$ref:()),
		map {$_=>$opt{$_}} grep {defined($opt{$_})} $class->_default_keys()
	);
	return bless(\%self,$class)->validate()->init();
}

sub validate {
	my ($self)=@_;
	$self->SUPER::validate();
	return $self;
}

sub init {
	my ($self)=@_;
	$self->SUPER::init();
	return $self;
}

sub includes {
	my ($self)=@_;
	return 0;
}

sub schedule {
	my ($self)=@_;
	return;
}

1;