view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

		);
	}

	my @exts = @{$self->{extensions}};
	unless ( @exts ) {
		@exts = $self->{admin}->load_all_extensions;
	}

	my %seen;
	foreach my $obj ( @exts ) {
		while (my ($method, $glob) = each %{ref($obj) . '::'}) {
			next unless $obj->can($method);
			next if $method =~ /^_/;
			next if $method eq uc($method);
			$seen{$method}++;
		}
	}

	my $who = $self->_caller;
	foreach my $name ( sort keys %seen ) {
		local $^W;

t/04_tut.t  view on Meta::CPAN

            'title'  => 'test record four.'
        },
        {   '_score' => 4,
            '_id'    => 3,
            'title'  => 'test test record three.'
        }
    ]
);

sub _cleanup {
    my @files = glob( File::Spec->catfile( $FindBin::RealBin, "data", "*" ) );
    if ( @files > 0 ) {
        for (@files) {
            unlink $_;
        }
    }
}

t/05_regression.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use lib '../lib';
use AnyEvent::Groonga;
use Test::More;
use FindBin;
use File::Spec;

unlink $_ for glob( File::Spec->catfile( $FindBin::RealBin, "data", "*") );

my $g = AnyEvent::Groonga->new( debug => 0 );
my $groonga_path = $g->groonga_path;
my $test_database_path
    = File::Spec->catfile( $FindBin::RealBin, "data", "test.db" );

unless ( $groonga_path and -e $groonga_path ) {
    plan skip_all => "groonga is not installed.";
}
else{