diff options
| author | Julian Blake Kongslie <jblake@omgwallhack.org> | 2010-11-22 12:41:22 -0800 |
|---|---|---|
| committer | Julian Blake Kongslie <jblake@omgwallhack.org> | 2010-11-22 12:41:22 -0800 |
| commit | 042c335bbdc0d775fdc09b56e7490c6cb9985929 (patch) | |
| tree | c8f5abcc50744244b05665cd4c7ed7d3dc225572 | |
| parent | 82f9c9f1fa19c59e296570412656c66607d46f48 (diff) | |
| download | piny-code-042c335bbdc0d775fdc09b56e7490c6cb9985929.tar.gz piny-code-042c335bbdc0d775fdc09b56e7490c6cb9985929.zip | |
Bikeshedding, because I'm a bad person.
| -rw-r--r-- | libpiny/lib/Piny/Config.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/libpiny/lib/Piny/Config.pm b/libpiny/lib/Piny/Config.pm index 76405ee..1242c8f 100644 --- a/libpiny/lib/Piny/Config.pm +++ b/libpiny/lib/Piny/Config.pm @@ -168,21 +168,21 @@ sub tweakable { ( is => 'rw' , isa => $isa , lazy_build => 1 - , trigger => sub { - my ( $s, $new, $old ) = @_; + , trigger => sub { + my ( $s, $new, $old ) = @_; - $s->_conf->{$attrname} = $new; + $s->_conf->{$attrname} = $new; - if ( $s->has_confpath ) { - $s->save; - } else { - carp "Attribute $attrname modification ignored!"; - }; + if ( $s->has_confpath ) { + $s->save; + } else { + carp "Attribute $attrname modification ignored!"; + }; - $s->clear_conf; - my $clearer = "clear_$attr"; - $s->$clearer; - } + $s->clear_conf; + my $clearer = "clear_$attr"; + $s->$clearer; + } ); my $builder = sub { |