From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 11 Apr 2012 20:46:00 +0000 (+0000)
Subject: remove ::Restricted
X-Git-Tag: v1.000_900~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52cc6d98404817da41318750929a6f7f54872686;p=gitmo%2FRole-Tiny.git

remove ::Restricted
---

diff --git a/lib/Role/Tiny/Restricted.pm b/lib/Role/Tiny/Restricted.pm
deleted file mode 100644
index 713e431..0000000
--- a/lib/Role/Tiny/Restricted.pm
+++ /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
index 06c1958..0000000
--- a/lib/Role/Tiny/Restricted/With.pm
+++ /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;