view release on metacpan or  search on metacpan

t/t_schema/02_tangram.t  view on Meta::CPAN

	map { $_->info() } $storage->select( $tbl, $tbl->{age} < 18 );

	println 'Scanning finished.';

		# list all instances

	my %class_hash = @$class_schema;

	foreach my $class ( keys %class_hash )
	{
		my $cursor = $storage->cursor( $class );

		my $inst_cnt = 0;

		while(my $obj = $cursor->current())
		{
			#$obj->info() if $obj->can('info');

			$inst_cnt++;

			$cursor->next();
		}

		println qq{'$inst_cnt' instance(s) of class '$class' detected.};

		$cursor->close();
	}

	eval
	{
		1;
	};

	if($@)
	{
		croak $@;