Select Code to Download

$expected = bless( \bless( \1, 'T' ), 'T' );
$got = bless( \$got, 'T' );

package T;
use Data::Dump::Streamer;
sub D {
...
$o = T->new( 1 );
$o -= 2;
"$o";