lopnor

#!/usr/bin/perl
use strict;
use warnings;

print "Hello, Gist.vim!\n";

lopnor

#!/usr/bin/perl
use strict;
use warnings;

print "Hello, Gist.vim!\n";

lopnor

#!/usr/bin/perl

package MyBase;
use Mouse;

has something => (
    isa => 'Str',
    is => 'ro',
    default => 'foo',
);

lopnor

package GourmetClub::Base::Controller::Resource;

use strict;
use warnings;
use parent qw(Catalyst::Controller);
use MRO::Compat;
use Digest::SHA1 qw(sha1_base64);

__PACKAGE__->config(
    {

lopnor

use strict;
use warnings;
use utf8;
use Test::More tests => 8;

use Digest::SHA1 qw(sha1_base64);

BEGIN { use_ok 'Test::WWW::Mechanize::Catalyst', 'MyApp' }
BEGIN { use_ok 'MyApp::Controller::Admin' }
BEGIN { use_ok 'MyApp::Schema' }

lopnor

#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use Web::Scraper;
use YAML;
use URI;

my $file = shift;

lopnor

#!/usr/bin/perl
# get_alphabets.pl
use strict;
use warnings;

use lib 'lib';
use Geography::JapanesePrefectures;
use WebService::Simple;
use Data::Dumper;

lopnor

#!/usr/bin/perl
# get_alphabets.pl
use strict;
use warnings;

use lib 'lib';
use Geography::JapanesePrefectures;
use WebService::Simple;
use Data::Dumper;
use charnames ':full';

lopnor

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use Web::Scraper;
use LWP::Simple ();
use YAML;
use URI;
binmode(STDOUT, ':utf8');

lopnor

#!perl
use strict;
use warnings;
use utf8;
use Text::MeCab::Dict;
use File::Basename;
use Path::Class;
use Carp qw(confess);

{