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/Random.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/Random.pm')
| -rw-r--r-- | lib/GridFiller/Chooser/Random.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/GridFiller/Chooser/Random.pm b/lib/GridFiller/Chooser/Random.pm index 7b86d55..7fefbf6 100644 --- a/lib/GridFiller/Chooser/Random.pm +++ b/lib/GridFiller/Chooser/Random.pm @@ -11,7 +11,7 @@ sub find_place_for { my $dir = int(rand(2)) ? $HORIZONTAL : $VERTICAL; - my $length = length $word; + my $length = $self->length->($word); my @ret; |