view release on metacpan or  search on metacpan

Acme-Hidek.xs  view on Meta::CPAN

PROTOTYPES: DISABLE

void
we_love_hidek(SV* hidek)
CODE:
{
    IV i;
    IV age = hidek_get_age(aTHX_ hidek) * 100;
    for(i = 0; i < age; i++) {
        PerlIO_stdoutf("We love hidek!\n");
    }
}

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

            }
        }

        return;
    }
}

1;
__END__

=encoding utf-8

#line 128

lib/Acme/Hidek.pm  view on Meta::CPAN

package Acme::Hidek;

use 5.008_001;
use utf8;
use Mouse;
use Time::Piece;
use Time::HiRes qw(sleep);

if ($^O eq 'MSWin32') {
   require 'Win32/Console/ANSI.pm';
   binmode STDOUT, ":raw :encoding(cp932)";
}
elsif($ENV{CONSOLE_ENCODING}) {
    binmode STDOUT, ":raw :encoding($ENV{CONSOLE_ENCODING})";