Acme-YAPC-Asia-2012-LTthon-Hakushu

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  version: 1.4
module_name: Acme::YAPC::Asia::2012::LTthon::Hakushu
name: Acme-YAPC-Asia-2012-LTthon-Hakushu
no_index:
  directory:
    - inc
    - t
    - xt
requires:
  Furl: 0
  parent: 0
  perl: 5.8.1
resources:
  license: http://dev.perl.org/licenses/
  repository: git://github.com/gfx/p5-YAPC-Asia-2012-LTthon-Hakushu.git
version: 0.03

Makefile.PL  view on Meta::CPAN

     }
}
use inc::Module::Install;

all_from 'lib/Acme/YAPC/Asia/2012/LTthon/Hakushu.pm';


test_requires 'Test::More'     => '0.88';
test_requires 'Test::Requires' => '0.06';

requires 'parent';
requires 'Furl';

auto_set_repository;

tests_recursive;
author_tests 'xt';


clean_files qw(
    Acme-YAPC-Asia-2012-LTthon-Hakushu-*

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/Acme/YAPC/Asia/2012/LTthon/Hakushu.pm  view on Meta::CPAN

package Acme::YAPC::Asia::2012::LTthon::Hakushu;
use 5.008_001;
use strict;
use warnings;

our $VERSION = '0.03';

use parent qw(Exporter);
our @EXPORT = qw(hakushu);

use Furl;

sub hakushu {
   __PACKAGE__->push();
}

sub push {
    my($class) = @_;