Acme-Coro-Suke

 view release on metacpan or  search on metacpan

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

    $self->include('Test::Base::Filter');
    $self->include('Spiffy');
    $self->include('Test::More');
    $self->include('Test::Builder');
    $self->include('Test::Builder::Module');
    $self->requires('Filter::Util::Call');
}

1;

=encoding utf8

#line 70

inc/Test/Base.pm  view on Meta::CPAN

}

{
    %$reserved_section_names = map {
        ($_, 1);
    } keys(%Test::Base::Block::), qw( new DESTROY );
}

__DATA__

=encoding utf8

#line 1376

inc/YAML.pm  view on Meta::CPAN

sub Blessed {
    require YAML::Dumper::Base;
    YAML::Dumper::Base::blessed($global, @_)
}
sub global_object { $global }

1;

__END__

=encoding utf8

#line 810

lib/Acme/Coro/Suke.pm  view on Meta::CPAN

package Acme::Coro::Suke;
use strict;
use warnings;
use utf8;
our $VERSION = '0.01';

use Coro;
use Encode;
use base qw/Exporter/;
our @EXPORT = qw/benzo/;

our $SERIF = Encode::encode('utf-8', "うわぁ…べんぞうさんの中…すごくあったかいナリぃ… \n");

sub benzo(&) { ##

lib/Acme/Coro/Suke.pm  view on Meta::CPAN

            print $SERIF;
        };
        $sub->();
    };
}


1;
__END__

=encoding utf8

=head1 NAME

Acme::Coro::Suke - the only real corosuke in benzo

=head1 SYNOPSIS

  use Coro;
  use Acme::Coro::Suke;

t/01_basic.t  view on Meta::CPAN

use strict;
use utf8;
use Test::More tests => 2;

use Coro;
use Acme::Coro::Suke;
use IO::Scalar;

my $str = '';
my $fh = IO::Scalar->new(\$str);

{