view release on metacpan or  search on metacpan

lib/Frost/Meta/Class.pm  view on Meta::CPAN

#	CLASS METHODS
#
sub _construct_instance
{
	die "mutable is VERBOTEN";
}

#	PUBLIC ATTRIBUTES
#
has _readonly_attributes	=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);
has _transient_attributes	=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);
has _derived_attributes		=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);
has _virtual_attributes		=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);
has _index_attributes		=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);
has _unique_attributes		=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);
has _auto_id_attributes		=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);
has _auto_inc_attributes	=> ( is => 'ro', isa => 'HashRef',	lazy_build => 1	);

#	CONSTRUCTORS
#
sub _build__readonly_attributes	{ $_[0]->_build_features ( 'readonly'	);	}
sub _build__transient_attributes	{ $_[0]->_build_features ( 'transient'	);	}
sub _build__derived_attributes	{ $_[0]->_build_features ( 'derived'	);	}
sub _build__virtual_attributes	{ $_[0]->_build_features ( 'virtual'	);	}
sub _build__index_attributes		{ $_[0]->_build_features ( 'index'		);	}
sub _build__unique_attributes		{ $_[0]->_build_features ( 'unique'		);	}
sub _build__auto_id_attributes	{ $_[0]->_build_features ( 'auto_id'	);	}

t/200_basic/110_frost_flow.t  view on Meta::CPAN

ok(1);

#	This is not really a test - see below 'Uncomment...'

{
	package Asylum::Flow;

	use Moose;
	extends 'Frost::Asylum';

	has FLOW => ( is => 'ro', isa => 'ArrayRef', default => sub { [] } );

	around _exists				=> \&__record;
	around _count				=> \&__record;
	around _lookup				=> \&__record;
	around _silence			=> \&__record;
	around _evoke				=> \&__record;
	around _forget				=> \&__record;
	around _silence_slot		=> \&__record;
	around _silence_array	=> \&__record;
	around _silence_hash		=> \&__record;