diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-12-02 20:53:29 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-12-02 20:53:29 +0000 |
| commit | bdb7d68f2a6d7f87b719f13a01069b94367d370e (patch) | |
| tree | e5689145a93c1043ebd39fd6f13b5c2df76ce53c /lib/GridFiller/Chooser.pm | |
| parent | mutable objects, all status in attributes (diff) | |
| download | qr-builder-bdb7d68f2a6d7f87b719f13a01069b94367d370e.tar.gz qr-builder-bdb7d68f2a6d7f87b719f13a01069b94367d370e.tar.bz2 qr-builder-bdb7d68f2a6d7f87b719f13a01069b94367d370e.zip | |
modifiable 'length' function
Diffstat (limited to 'lib/GridFiller/Chooser.pm')
| -rw-r--r-- | lib/GridFiller/Chooser.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/GridFiller/Chooser.pm b/lib/GridFiller/Chooser.pm index 66e13b9..6feb429 100644 --- a/lib/GridFiller/Chooser.pm +++ b/lib/GridFiller/Chooser.pm @@ -3,6 +3,7 @@ use Moose; use namespace::autoclean; use GridFiller::Status; use GridFiller::Constants ':all'; +use MooseX::Types::Moose qw(CodeRef); use Carp; with 'MooseX::Log::Log4perl'; @@ -16,6 +17,12 @@ has status => ( }, ); +has length => ( + isa => CodeRef, + is => 'rw', + default => sub { sub {length shift} }, +); + sub find_place_for { croak "unimplemented"; } |