view release on metacpan or  search on metacpan

t/05dtype.t  view on Meta::CPAN

sub ok     { printf("ok %d\n", $test++); }
sub not_ok { printf("not ok %d\n", $test++); }

use strict;

package Test::Hash;

@Test::Hash::ISA = qw( Clone );

sub new()
{
  my ($class) = @_;
  my $self = {};
  $self->{x} = 0;
  $self->{x} = {value => 1};
  bless $self, $class;
}

package main;

t/06refcnt.t  view on Meta::CPAN

$^W   = 1;
$test = 2;

use strict;

package Test::Hash;

@Test::Hash::ISA = qw( Clone );

sub new() {
    my ($class) = @_;
    my $self = {};
    bless $self, $class;
}

my $ok = 0;
END { $ok = 1; }

sub DESTROY {
    my $self = shift;