Kelp::Base can now import just attr with -attr

lib/Kelp/Base.pm

@@ -1,12 +1,13 @@
 package Kelp::Base;
 
-use strict ();
-use warnings ();
+use strict;
+use warnings;
 use feature ();
 use Carp;
-use Data::Dumper ();
-use namespace::autoclean ();
 
+require Data::Dumper;
+require namespace::autoclean;
+require Kelp::Util;
 
 sub import
 {
@@ -22,12 +23,12 @@ sub import
         no strict 'refs';
         no warnings 'redefine';
 
-        my $file = $base;
-        $file =~ s/::|'/\//g;
-        require "$file.pm" unless $base->can('new');    # thanks sri
-
-        push @{"${caller}::ISA"}, $base;
         *{"${caller}::attr"} = sub { attr($caller, @_) };
+
+        if ($base ne '-attr') {
+            Kelp::Util::load_package($base);
+            push @{"${caller}::ISA"}, $base;
+        }
     }
 
     strict->import;

lib/Kelp/Util.pm

@@ -1,6 +1,10 @@
 package Kelp::Util;
 
-use Kelp::Base -strict;
+# No Kelp::Base here, because Kelp::Base uses Kelp::Util;
+use v5.10;
+use strict;
+use warnings;
+
 use Carp;
 use Encode qw();
 use Class::Inspector;
@@ -10,6 +14,7 @@ use Plack::Util;
 our @CARP_NOT = (
     qw(
         Kelp
+        Kelp::Base
         Kelp::Routes
         Kelp::Context
     )

t/base_attr.t

@@ -0,0 +1,18 @@
+use Kelp::Base -strict;
+use Test::More;
+
+{
+
+    package WithAttrs;
+
+    use Kelp::Base -attr;
+
+    attr a1 => 55;
+}
+
+ok !WithAttrs->can('new'), 'new ok';
+ok !WithAttrs->isa('Kelp::Base'), 'base ok';
+can_ok 'WithAttrs', 'a1';
+
+done_testing;
+