Commit 7e270569 authored by Dan Reading's avatar Dan Reading

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.
parent b741a38a
......@@ -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';
......
......@@ -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
......
......@@ -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';
......
......@@ -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 { [] } );
......
......@@ -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 );
......
......@@ -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');
......
......@@ -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;
......
......@@ -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;
......
......@@ -23,7 +23,7 @@
#
package TestBed::TestSuite::Node;
use SemiModern::Perl;
use Mouse;
use Moose;
use Tools;
use Tools::Network;
use Tools::TBSSH;
......
......@@ -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;
......
......@@ -23,7 +23,7 @@
#
package TestBed::XMLRPC::Client::Emulab;
use SemiModern::Perl;
use Mouse;
use Moose;
use Data::Dumper;
extends 'TestBed::XMLRPC::Client';
......
......@@ -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;
......
......@@ -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';
......
......@@ -23,7 +23,7 @@
#
package TestBed::XMLRPC::Client::OSID;
use SemiModern::Perl;
use Mouse;
use Moose;
use Data::Dumper;
extends 'TestBed::XMLRPC::Client';
......
......@@ -24,7 +24,7 @@
package Tools::TBSSH;
use SemiModern::Perl;
use Data::Dumper;
use Mouse;
use Moose;
eval{
#force use of 'Tools::WrappedSSH'
......
......@@ -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');
......
......@@ -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');
......@@ -38,6 +38,7 @@ BEGIN {
use lib qw(lib tests);
use SemiModern::Perl;
use Moose;
use Data::Dumper;
use TBConfig;
......
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment