xaicron

use strict;
use warnings;
use Benchmark qw(timethese cmpthese);

use Data::Encoder;

my $module = 'Data::Encoder';

my $josn     = $module->load('JSON');
my $dumper   = $module->load('Data::Dumper');

xaicron

use strict;
use warnings;
use Test::More;
use HTML::Filter::Callbacks;

my $SKIP_TAGS = { map { $_ => 1 } qw(title textarea) };
my $code = sub {
    my ($tag, $c) = @_;
    my $text = $tag->text;
    # note explain $tag;

xaicron

#!/usr/bin/evn perl

use strict;
use warnings;
use LWP::UserAgent;
use JSON;
use Getopt::Long qw/GetOptions/;
use Encode;
use Term::Encoding qw/term_encoding/;
use Sub::Retry;

xaicron

package LogOreno;

use strict;
use warnings;
use Log::Minimal;

use parent qw(LogOreno2);

sub import {
    my $class = shift;

xaicron

=encoding utf-8

=for stopwords

=head1 欲しいものリスト

=over

=item Types.pm ほしい (tokuhirom, xaicron)

xaicron

use strict;
use warnings;
use version;
use File::Spec;
use Getopt::Long qw/GetOptions/;

sub usage;

my $conf = do "$ENV{HOME}/.pswrc" || do "$ENV{HOME}/_pswrc" || {};

xaicron

use strict;
use warnings;
use 5.12;

sub list {
    return qw(miyagawa tokuhirom nekokak);
}

sub array {
    my @ret = qw(miyagawa tokuhirom nekokak);

xaicron

package Hoge;
use strict;
use warnings;

sub new {
    bless {}, shift;
}

sub all {
    return qw(tokuhirom nekokak chiba gfx);

xaicron

use inc::Module::Install;
use Module::Install::TestTarget;

name 'MyApp';
all_from 'lib/MyApp.pm';

requires 'DBI';
requires 'JSON';

test_requires 'Test::More';

xaicron

2e;foo=bar;baz="qux"
The quick brown fox jumps over the lazy dog.\n
2e;foo=bar;baz="qux"
The quick brown fox jumps over the lazy dog.\n
2e;foo=bar;baz="qux"
The quick brown fox jumps over the lazy dog.\n