Select Code to Download

#!/usr/bin/perl
use warnings;
...
ok $e1 == $e2;
is $e1->name, 'one';
is $e1->name, $e2->name;