remove ::Restricted
Matt S Trout [Wed, 11 Apr 2012 20:46:00 +0000 (20:46 +0000)]
lib/Role/Tiny/Restricted.pm [deleted file]
lib/Role/Tiny/Restricted/With.pm [deleted file]

diff --git a/lib/Role/Tiny/Restricted.pm b/lib/Role/Tiny/Restricted.pm
deleted file mode 100644 (file)
index 713e431..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-package Role::Tiny::Restricted;
-
-use strict;
-use warnings FATAL => 'all';
-use base qw(Role::Tiny);
-
-sub apply_union_of_roles_to_package {
-  my ($me, $to, @roles) = @_;
-  my %app = %{$Role::Tiny::APPLIED_TO{$to}||{}};
-  delete $app{$to};
-  if (%app) {
-    require Carp;
-    Carp::confess("with() may not be called more than once for $to");
-  }
-  $me->SUPER::apply_union_of_roles_to_package($to, @roles);
-}
-
-1;
diff --git a/lib/Role/Tiny/Restricted/With.pm b/lib/Role/Tiny/Restricted/With.pm
deleted file mode 100644 (file)
index 06c1958..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-package Role::Tiny::Restricted::With;
-
-use strict;
-use warnings FATAL => 'all';
-use Role::Tiny::Restricted ();
-
-use Exporter 'import';
-our @EXPORT = qw( with );
-
-sub with {
-    my $target = caller;
-    Role::Tiny::Restricted->apply_union_of_roles_to_package($target, @_)
-}
-
-1;