view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

BEGIN { use_ok('Class::Accessor::Class'); }

can_ok('Class::Accessor::Class', 'mk_class_accessors');

package Robot;
	@Robot::ISA = qw(Class::Accessor::Class);
	Robot->mk_class_accessors(qw(robots_online));
	Robot->robots_online(1);

	sub new { my $class = shift; bless {@_} => $class }
	sub do_something {
		my $self = shift;
		return $self->robots_online ? 1 : 0;
	}
package main;

ok(1, "set up Robot package");
can_ok('Robot', 'robots_online');

my $whiz = Robot->new(name => 'Whiz');

t/package.t  view on Meta::CPAN

BEGIN { use_ok('Class::Accessor::Class'); }

can_ok('Class::Accessor::Class', 'mk_class_accessors');

package Robot;
	@Robot::ISA = qw(Class::Accessor::Class);
	Robot->mk_package_accessors(qw(robots_online));
	Robot->robots_online(1);

	sub new { my $class = shift; bless {@_} => $class }
	sub do_something {
		my $self = shift;
		return $self->robots_online ? 1 : 0;
	}
package main;

ok(1, "set up Robot package");
can_ok('Robot', 'robots_online');

my $whiz = Robot->new(name => 'Whiz');