view release on metacpan or  search on metacpan

lib/Context/Set/Manager.pm  view on Meta::CPAN

package Context::Set::Manager;
use Moose;
use Moose::Util;

use Context::Set;
use Context::Set::Restriction;
use Context::Set::Union;

use Context::Set::Storage::BlackHole;

has '_localidx' => ( is => 'ro' , isa => 'HashRef[ArrayRef[Context::Set]]', default => sub{ {}; });
has '_fullidx' => ( is => 'ro' , isa => 'HashRef' , default => sub{ {}; } );

has 'universe' => ( is => 'ro' , isa => 'Context::Set' , required => 1 ,
                    lazy_build => 1 );

has 'storage' => ( is => 'ro', isa => 'Context::Set::Storage' , required => 1,
                   default => sub{ return Context::Set::Storage::BlackHole->new() } );
has 'autoreload' => ( is => 'ro', isa => 'Bool', default => 0 );

=head1 NAME

lib/Context/Set/Storage/Split.pm  view on Meta::CPAN

                                                               {
                                                                name => 'default',
                                                                test => sub{ 1; },
                                                                storage => $general_store
                                                               }]
                                                    });

=cut


has 'rules' => ( is => 'ro', isa => 'ArrayRef[Context::Set::Storage::Split::Rule]', required => 1);
has '_rules_idx' => ( is => 'ro' , isa => 'HashRef[Context::Set::Storage::Split::Rule]', required => 1);


=head2 BUILDARGS

 See L<Moose>

 In moose, we override BUILDARGS, not new.

=cut

lib/Context/Set/Union.pm  view on Meta::CPAN

package Context::Set::Union;
use Moose;

extends qw/Context::Set/;

has 'contexts' => ( is => 'ro' , isa => 'ArrayRef[Context::Set]' , required => 1);

=head2 name

Dies all the time. Using name makes no sense on a Context::Set::Union

=cut

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