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";
 }