use Test::More;
BEGIN {
- eval "use DBM::Deep 0.983; use DateTime::Format::MySQL;";
- plan skip_all => "DBM::Deep and DateTime::Format::MySQL required for this test" if $@;
+ eval "use DBM::Deep 0.983;";
+ plan skip_all => "DBM::Deep is required for this test" if $@;
+ plan skip_all => "DBM::Deep (>= 1.0) is required for this test"
+ if DBM::Deep->VERSION >= 1.0;
+ eval "use DateTime::Format::MySQL;";
+ plan skip_all => "DateTime::Format::MySQL is required for this test" if $@;
plan tests => 89;
}
sub create_instance {
my $self = shift;
- my $class = $self->{meta}->name;
+ my $class = $self->associated_metaclass->name;
my $oid = ++$INSTANCE_COUNTERS{$class};
$db->{$class}->[($oid - 1)] = {};
sub find_instance {
my ($self, $oid) = @_;
- my $instance = $db->{$self->{meta}->name}->[($oid - 1)];
+ my $instance = $db->{$self->associated_metaclass->name}->[($oid - 1)];
$self->bless_instance_structure({
oid => $oid,
instance => $instance
}
package Moose::POOP::Meta::Class;
- use Moose;
+ use Moose;
extends 'Moose::Meta::Class';
{
package Moose::POOP::Object;
use metaclass 'Moose::POOP::Meta::Class' => (
- ':instance_metaclass' => 'Moose::POOP::Meta::Instance'
+ instance_metaclass => 'Moose::POOP::Meta::Instance'
);
use Moose;