CPAN::Groonga

 and Structure braces get relinked properly' );
	isnt( refaddr($Document), refaddr($Doc2),
		'Cloned Document has a different memory location' );
	isnt( refaddr($Document->schild(0)), refaddr($Doc2->s

one"));
	}
}

for my $code ( '1.0._0' ) {
	my $token = PPI::Tokenizer->new( \$code )->get_token;
	isnt("$token", $code, 'tokenize bad version');
}

for my $code ( '1.0.0.0_0' ) {
	my $token = PPI::Tok

->schildren;
	isa_ok( $sub_statement, 'PPI::Statement::Sub', "$code: document child is a sub" );
	isnt( ref $sub_statement, 'PPI::Statement::Scheduled', "$code: not a PPI::Statement::Scheduled" );
	is

;
	}
	my $clone = Storable::dclone($Document);
	Test::More::ok($clone, "dclone ok");
	Test::More::isnt( refaddr($Document), refaddr($clone), "Not the same object" );
	Test::More::is(ref($Document), re