1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
package GridFiller::Chooser; use Moose;use namespace::autoclean;use GridFiller::Status;use GridFiller::Constants ':all';use Carp; with 'MooseX::Log::Log4perl'; has status => ( isa => 'GridFiller::Status', is => 'ro', required => 1, handles => { grid => 'grid_status', length => 'length', },); sub find_place_for { croak "unimplemented";} 1;