#!/usr/bin/perl -W -T
use strict;
use Test::Simple tests => 2;
package Some_Class;
use parent qw(
Object::By::Scalar);
sub P_THIS() { 0 }
sub _init {
${$_[P_THIS]} = 'Hello World.';
return;
}
package main;
my $obj1 = Some_Class->constructor;
ok(ref($obj1) eq 'Some_Class', 'T001: right class');
ok(${$obj1} eq 'Hello World.', 'T002: initialized');
exit(0);