Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 404a66ce5f
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (12 sloc) 0.311 kB
use strict;
use warnings;
use 5.010001;
use Test::More 'no_plan';
use Tie::RefHash;
{
tie my %refhash, 'Tie::RefHash';
my $obj = bless {} => 'Class';
$refhash{ $obj } = 1;
my $is_obj = sub { ref $_[0] and (ref $_[0]) =~ /[a-z]/ }; # "ha ha ha"
ok(%refhash ~~ $is_obj, "all keys are blessed");
}
Jump to Line
Something went wrong with that request. Please try again.