Add a more accurately-named alias: Acme::Noose

lib/Acme/Noose.pm

@@ -0,0 +1,20 @@
+package Acme::Noose;
+use strict;
+use warnings;
+# ABSTRACT: just enough object orientation to hang yourself
+# VERSION
+
+use Noose ();
+BEGIN {
+    *Acme::Noose:: = \%Noose::;
+}
+
+=head1 DESCRIPTION
+
+This is simply a (more accurately named) alias of L<Noose>.
+
+=for Pod::Coverage new
+
+=cut
+
+1;

t/06-acme.t

@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+
+package Thing;
+use Acme::Noose;
+sub exclaim {
+    my $self = shift;
+    die 'BLARGH' unless $self->a == 1;
+    return "yepyepyep\n";
+}
+
+package main;
+use Test::More tests => 4;
+
+my $thing = new_ok Thing => [a => 1];
+can_ok $thing, qw/ new exclaim a /;
+is $thing->a => 1;
+is $thing->exclaim => "yepyepyep\n";
+