From: Jesse Luehrs Date: Fri, 2 Apr 2010 08:10:37 +0000 (-0500) Subject: fix a test (do we want to do this?) X-Git-Tag: 1.05~25 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=117154c4f2cc32cf2d9665268ab1368a864287be;p=gitmo%2FMoose.git fix a test (do we want to do this?) --- diff --git a/t/050_metaclasses/018_throw_error.t b/t/050_metaclasses/018_throw_error.t index 8bdf2bc..bb2c025 100644 --- a/t/050_metaclasses/018_throw_error.t +++ b/t/050_metaclasses/018_throw_error.t @@ -22,17 +22,20 @@ use Test::Exception; has foo => ( is => "ro" ); - package Baz::Error; - use Moose; - - has message => ( isa => "Str", is => "ro" ); - has attr => ( isa => "Moose::Meta::Attribute", is => "ro" ); - has method => ( isa => "Moose::Meta::Method", is => "ro" ); - has metaclass => ( isa => "Moose::Meta::Class", is => "ro" ); - has data => ( is => "ro" ); - has line => ( isa => "Int", is => "ro" ); - has file => ( isa => "Str", is => "ro" ); - has last_error => ( isa => "Any", is => "ro" ); + BEGIN { + package Baz::Error; + use Moose; + extends 'Moose::Object', 'Moose::Error::Default'; + + has message => ( isa => "Str", is => "ro" ); + has attr => ( isa => "Moose::Meta::Attribute", is => "ro" ); + has method => ( isa => "Moose::Meta::Method", is => "ro" ); + has metaclass => ( isa => "Moose::Meta::Class", is => "ro" ); + has data => ( is => "ro" ); + has line => ( isa => "Int", is => "ro" ); + has file => ( isa => "Str", is => "ro" ); + has last_error => ( isa => "Any", is => "ro" ); + } package Baz; use metaclass (