Explicitly use default names for builders and clearers dq
Dagfinn Ilmari Mannsåker [Sun, 19 Jan 2014 19:03:37 +0000 (19:03 +0000)]
The attributes that specified explicit builder or clearer names were
specifying the defaut name anyway, so just use => 1 instead.

lib/SQL/Abstract.pm

index 48fccc3..8a0bae9 100644 (file)
@@ -27,7 +27,7 @@ sub puke (@) {
   Carp::croak "[$func] Fatal: ", @_;
 }
 
-has converter => (is => 'lazy', clearer => 'clear_converter');
+has converter => (is => 'lazy', clearer => 1);
 
 has case => (
   is => 'ro', coerce => quote_sub( q{ $_[0] eq 'lower' ? 'lower' : undef } ),
@@ -64,7 +64,7 @@ has injection_guard => (
   })
 );
 
-has renderer => (is => 'lazy', clearer => 'clear_renderer');
+has renderer => (is => 'lazy', clearer => 1);
 
 has name_sep => (
   is => 'rw', default => '.',
@@ -100,7 +100,7 @@ has convert => (is => 'ro');
 has array_datatypes => (is => 'ro');
 
 has converter_class => (
-  is => 'rw', lazy => 1, builder => '_build_converter_class',
+  is => 'rw', lazy => 1, builder => 1,
   trigger => quote_sub( q{ $_[0]->clear_converter } ),
 );