diff options
author | dakkar <dakkar@thenautilus.net> | 2011-04-20 21:31:13 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2011-04-20 21:31:13 +0100 |
commit | d336dfe3d79faf0b80b4b5fafee886b3568b0e13 (patch) | |
tree | 380a3b309aebfe1be18ffdffc1f6fc345d4933b3 /lib/GridFiller/Status.pm | |
parent | cmdline opts, external data (diff) | |
download | qr-builder-d336dfe3d79faf0b80b4b5fafee886b3568b0e13.tar.gz qr-builder-d336dfe3d79faf0b80b4b5fafee886b3568b0e13.tar.bz2 qr-builder-d336dfe3d79faf0b80b4b5fafee886b3568b0e13.zip |
make objects one-shot
Diffstat (limited to 'lib/GridFiller/Status.pm')
-rw-r--r-- | lib/GridFiller/Status.pm | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/lib/GridFiller/Status.pm b/lib/GridFiller/Status.pm index bccb20f..65932b8 100644 --- a/lib/GridFiller/Status.pm +++ b/lib/GridFiller/Status.pm @@ -25,13 +25,13 @@ has grid => ( has mode => ( isa => Str, - is => 'rw', + is => 'ro', default => 'given', ); has length => ( isa => CodeRef, - is => 'rw', + is => 'ro', default => sub { sub {length shift} }, ); @@ -50,7 +50,6 @@ has grid_status => ( isa => GridStatusT, is => 'ro', lazy_build => 1, - clearer => '_reset_gs', ); sub _build_words_to_use { @@ -144,11 +143,4 @@ sub to_string { } } -sub reset { - my ($self) = @_; - - $self->_reset_gs; - $self->_reset_wts; -} - 1; |