tweaking

diff --git a/lib/MooseX/AttributeHelpers/Base.pm b/lib/MooseX/AttributeHelpers/Base.pm
index 267ffbe..3d13d16 100644 (file)
--- a/lib/MooseX/AttributeHelpers/Base.pm
+++ b/lib/MooseX/AttributeHelpers/Base.pm
@@ -31,6 +31,7 @@ sub helper_type { () }
 
 sub process_options_for_provides {
     my ($self, $options) = @_;
+    
     if (my $type = $self->helper_type) {
         (exists $options->{isa})
             || confess "You must define a type with the $type metaclass";  

diff --git a/lib/MooseX/AttributeHelpers/Counter.pm b/lib/MooseX/AttributeHelpers/Counter.pm
index 86c1317..0e8fb70 100644 (file)
--- a/lib/MooseX/AttributeHelpers/Counter.pm
+++ b/lib/MooseX/AttributeHelpers/Counter.pm
@@ -54,11 +54,13 @@ MooseX::AttributeHelpers::Counter
       default   => sub { 0 },
       provides  => {
           inc => 'inc_counter',
+          dec => 'dec_counter',          
       }
   );
 
   my $page = MyHomePage->new();
   $page->inc_counter; # same as $page->counter($page->counter + 1);
+  $page->dec_counter; # same as $page->counter($page->counter - 1);  
   
 =head1 DESCRIPTION