Use Moose Perl OO package instade of the Mouse package. Mouse broken?

Fixed the message(s) of:
You cannot augment 'TestBed::TestSuite::Experiment=HASH(0x187f420)' because it has no super method at /usr/local/lib/perl/5.14.2/Mouse/Meta/Class.pm line 429.

testsuite/testswap/Makefile.PL

@@ -29,7 +29,7 @@ perl_version    '5.008';
 author          'Testbed Developers <testbed-dev@flux.utah.edu>';
 version         '0.01';
 
-requires      'Mouse'               => '0.22';
+requires      'Moose'               => '0.22';
 requires      'RPC::XML::Client'    => '1.24';
 requires      'RPC::XML'            => '1.41';
 requires      'Test::More'          => '0.86';

testsuite/testswap/install_deps_from_cpan

@@ -61,7 +61,7 @@ sub automate_module_install {
 
 sub install_deps_from_cpan {
   my @deps = qw(
-      Mouse
+      Moose
       RPC::XML::Client
       RPC::XML
       Test::More

testsuite/testswap/lib/TestBed/ForkFramework.pm

@@ -24,7 +24,7 @@ my $FFDEBUG = 0;
 
 package TestBed::ForkFramework::Process;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use POSIX ":sys_wait_h";
 has 'pid' => (is => 'rw');
 
@@ -33,7 +33,7 @@ sub wait    { waitpid(shift->pid, 0); }
 
 package TestBed::ForkFramework::Channel;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use Data::Dumper;
 use Carp;
 use IO::Pipe;
@@ -59,7 +59,7 @@ sub close           { my $s = shift; $s->closeRd; $s->closeWr; }
 
 package TestBed::ForkFramework::Redir;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use Carp;
 use IO::Pipe;
 
@@ -80,7 +80,7 @@ sub close           { my $hs = shift->pipes; map { close $_; } @$hs; }
 
 package TestBed::ForkFramework::Results;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 has 'successes' => ( isa => 'ArrayRef', is => 'rw', default => sub { [ ] } );
 has 'errors' => ( isa => 'ArrayRef', is => 'rw', default => sub { [ ] } );
@@ -100,7 +100,7 @@ sub handleResult {
 
 package TestBed::ForkFramework::ItemResult;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 has 'result' => ( is => 'rw');
 has 'error'  => ( is => 'rw');
@@ -157,7 +157,7 @@ sub fork_child_redir {
 
 package TestBed::ForkFramework::Scheduler;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use IO::Select;
 use Carp;
 use Data::Dumper;
@@ -321,7 +321,7 @@ sub schedule { 0; }
 
 package TestBed::ForkFramework::ForEach;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 has 'maxworkers'  => ( is => 'rw', isa => 'Int'     , default => 4);
 has 'currworkers' => ( is => 'rw', isa => 'Int'     , default => 0);
@@ -379,7 +379,7 @@ sub doItem { my ($s, $itemid) = @_; $s->proc->($s->items->[$itemid]); }
 
 package TestBed::ForkFramework::WeightedScheduler::Task;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 has 'id'      => (is => 'rw');
 has 'item'    => (is => 'rw');
@@ -401,7 +401,7 @@ package TestBed::ForkFramework::WeightedScheduler;
 use SemiModern::Perl;
 use Data::Dumper;
 use Tools;
-use Mouse;
+use Moose;
 
 extends 'TestBed::ForkFramework::Scheduler';
 

testsuite/testswap/lib/TestBed/ParallelRunner.pm

@@ -27,7 +27,7 @@ use TestBed::ParallelRunner::Executor;
 use TestBed::ForkFramework;
 use TestBed::TestBuilderWrapper;
 use Data::Dumper;
-use Mouse;
+use Moose;
 use TBConfig;
 
 has executors => ( is => 'rw', default => sub { [] } );

testsuite/testswap/lib/TestBed/ParallelRunner/ErrorStrategy.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::ParallelRunner::ErrorStrategy;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 has 'executor' => (is => 'rw');
 has 'scheduler' => (is => 'rw');
@@ -89,7 +89,7 @@ sub end_error     { shift->ensure_end_and_report; }
 
 package TestBed::ParallelRunner::PrerunExpectFail;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 extends 'TestBed::ParallelRunner::ErrorStrategy';
 
@@ -100,7 +100,7 @@ sub prerun_error {
 
 package TestBed::ParallelRunner::ErrorRetryStrategy;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 extends 'TestBed::ParallelRunner::ErrorStrategy';
 
@@ -115,7 +115,7 @@ sub swapin_error {
 
 package TestBed::ParallelRunner::BackoffStrategy;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 has 'starttime'  => (is => 'rw', default => sub { time; } );
 has 'retries'    => (is => 'rw', default => 0 );

testsuite/testswap/lib/TestBed/ParallelRunner/Executor.pm

@@ -22,40 +22,40 @@
 # }}}
 #
 package TestBed::ParallelRunner::Executor::Exception;
-use Mouse;
+use Moose;
   has original => ( is => 'rw');
-no Mouse;
+no Moose;
 
 package TestBed::ParallelRunner::Executor::PrerunError;
-use Mouse;
+use Moose;
   extends('TestBed::ParallelRunner::Executor::Exception');
-no Mouse;
+no Moose;
 
 package TestBed::ParallelRunner::Executor::SwapinError;
-use Mouse;
+use Moose;
   extends('TestBed::ParallelRunner::Executor::Exception');
-no Mouse;
+no Moose;
 
 package TestBed::ParallelRunner::Executor::RunError;
-use Mouse;
+use Moose;
   extends('TestBed::ParallelRunner::Executor::Exception');
-no Mouse;
+no Moose;
 
 package TestBed::ParallelRunner::Executor::SwapoutError;
-use Mouse;
+use Moose;
   extends('TestBed::ParallelRunner::Executor::Exception');
-no Mouse;
+no Moose;
 
 package TestBed::ParallelRunner::Executor::KillError;
-use Mouse;
+use Moose;
   extends('TestBed::ParallelRunner::Executor::Exception');
-no Mouse;
+no Moose;
 
 package TestBed::ParallelRunner::Executor;
 use TestBed::ParallelRunner::ErrorStrategy;
 use SemiModern::Perl;
 use TestBed::TestSuite::Experiment;
-use Mouse;
+use Moose;
 use Data::Dumper;
 
 has 'e'    => ( isa => 'TestBed::TestSuite::Experiment', is => 'rw');

testsuite/testswap/lib/TestBed/TestSuite/Experiment.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::TestSuite::Experiment;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use TBConfig;
 use TestBed::XMLRPC::Client::Experiment;
 use TestBed::Wrap::tevc;

testsuite/testswap/lib/TestBed/TestSuite/Link.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::TestSuite::Link;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 #use TestBed::XMLRPC::Client::Link;
 use Tools::Network;
 use Tools::TBSSH;

testsuite/testswap/lib/TestBed/TestSuite/Node.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::TestSuite::Node;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use Tools;
 use Tools::Network;
 use Tools::TBSSH;

testsuite/testswap/lib/TestBed/XMLRPC/Client.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::XMLRPC::Client;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use RPC::XML::Client;
 use Net::SSL;
 use LWP::Protocol::https;

testsuite/testswap/lib/TestBed/XMLRPC/Client/Emulab.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::XMLRPC::Client::Emulab;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use Data::Dumper;
 
 extends 'TestBed::XMLRPC::Client';

testsuite/testswap/lib/TestBed/XMLRPC/Client/Experiment.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::XMLRPC::Client::Experiment;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use Data::Dumper;
 use TestBed::XMLRPC::Client::NodeInfo;
 use TBConfig;

testsuite/testswap/lib/TestBed/XMLRPC/Client/Node.pm

@@ -26,7 +26,7 @@ use Mouse;
 
 package TestBed::XMLRPC::Client::Node;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use Data::Dumper;
 
 extends 'TestBed::XMLRPC::Client';

testsuite/testswap/lib/TestBed/XMLRPC/Client/OSID.pm

@@ -23,7 +23,7 @@
 #
 package TestBed::XMLRPC::Client::OSID;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use Data::Dumper;
 
 extends 'TestBed::XMLRPC::Client';

testsuite/testswap/lib/Tools/TBSSH.pm

@@ -24,7 +24,7 @@
 package Tools::TBSSH;
 use SemiModern::Perl;
 use Data::Dumper;
-use Mouse;
+use Moose;
 
 eval{
   #force use of 'Tools::WrappedSSH'

testsuite/testswap/lib/Tools/WrappedSSH.pm

@@ -26,7 +26,7 @@ use SemiModern::Perl;
 use Data::Dumper;
 use TBConfig;
 use IPC::Run3;
-use Mouse;
+use Moose;
 
 has 'host' => ( isa => 'Str', is => 'rw');
 has 'user' => ( isa => 'Str', is => 'rw');

testsuite/testswap/t/xmlrpc/emulab.t

@@ -36,6 +36,6 @@ ok($emuclient, 'Emulab new works');
 isa_ok($emuclient, 'TestBed::XMLRPC::Client::Emulab');
 
 my $time = timegm(0,0,0,1,0,2008);
-my $utctime =>  time2iso8601($time); # chop off the Z
+my $utctime =  time2iso8601($time); # chop off the Z
 my $resp = $emuclient->news('starting' => chop($utctime)); #? chop off the trailing Z
 ok($resp, 'Valid Emulab::new response');

testsuite/testswap/tbts

@@ -38,6 +38,7 @@ BEGIN {
 
 use lib qw(lib tests);
 use SemiModern::Perl;
+use Moose;
 
 use Data::Dumper;
 use TBConfig;

testsuite/testswap/tests/Trafficgen.pm

@@ -22,7 +22,7 @@
 #
 package Event;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 
 has 'start' => (is => 'rw');
 has 'end'   => (is => 'rw');
@@ -36,7 +36,7 @@ sub update {
 
 package TrafficGenLister;
 use SemiModern::Perl;
-use Mouse;
+use Moose;
 use IO::Socket::INET;
 use IO::Handle;
 use Test::More;