Algorithm-KernelKMeans

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  Carp: 1.16
  Exporter::Lite: 0.02
  List::MoreUtils: 0.22
  List::Util: 1.23
  Moose: 1.1
  MooseX::Types::Common::Numeric: 0.001001
  MooseX::Types::Moose: 0.23
  POSIX: 1.19
  UNIVERSAL::require: 0.13
  namespace::autoclean: 0.11
  parent: 0.223
resources:
  license: http://opensource.org/licenses/mit-license.php
  repository: http://bitbucket.org/sekia/algorithm-kernelkmeans
version: 0.03

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;

name 'Algorithm-KernelKMeans';
all_from 'lib/Algorithm/KernelKMeans.pm';

requires 'namespace::autoclean'           => '0.11';
requires 'parent'                         => '0.223';
requires 'Carp'                           => '1.16';
requires 'Exporter::Lite'                 => '0.02';
requires 'List::Util'                     => '1.23';
requires 'List::MoreUtils'                => '0.22';
requires 'Moose'                          => '1.1';
requires 'MooseX::Types::Moose'           => '0.23';
requires 'MooseX::Types::Common::Numeric' => '0.001001';
requires 'POSIX'                          => '1.19';
requires 'UNIVERSAL::require'             => '0.13';

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

}

sub autoload {
	my $self = shift;
	my $who  = $self->_caller;
	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";
Unknown function is found at $file line $line.

lib/Algorithm/KernelKMeans.pm  view on Meta::CPAN

use warnings;
use UNIVERSAL::require;

our $VERSION = '0.03';

BEGIN {
  for my $impl (qw/XS PP/) {
    my $impl_class = __PACKAGE__ . '::' . $impl;
    if ($impl_class->require) {
      our $IMPLEMENTATION = $impl;
      parent->use($impl_class); # be child of $impl_class
      last;
    }
  }
}

1;

__END__

=head1 NAME