#!/usr/local/bin/perl
use lib qw ( ./t );
use test_v1;
package XXX;
use Class::MethodMaker
new_hash_with_init => 'new',
get_set => [ qw/foo bar baz/ ];
sub init {
my $self = shift;
$self->bar(666);
$self->baz(42);
}
package main;
Class::MethodMaker->VERSION eq '2.08' || Class::MethodMaker->VERSION >= 2.00
or die "Wrong C::MM: ", Class::MethodMaker->VERSION, "\n";
# test the classes themselves
my $obj = XXX->new(foo => 7, bar => 13);
# 1--4
TEST { $obj->isa('XXX'); };
TEST { $obj->foo == 7; };
TEST { $obj->bar == 666; };
TEST { $obj->baz == 42; };