kenjiskywalker

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Printer;


my @hoge = qw(foo bar baz);

p @hoge;

kenjiskywalker

#!/usr/bin/env perl

use strict;
use warnings;

use Web::Scraper;
use URI;

my $scraper = scraper{

kenjiskywalker

#!/usr/bin/env perl

use Mojolicious::Lite;
use Web::Scraper;
use URI;

# binmode(STDOUT,"utf8");

my $scraper = scraper{
  process 'td', 'schedule[]'=>'TEXT';

kenjiskywalker

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

my @hoge;
my $answer;

my $foo = {

kenjiskywalker

#!/usr/bin/env perl

use strict;
use warnings;
use Text::Xslate;
use Time::Piece ();

my $time = Time::Piece::localtime();
my $day;
my $hour;

kenjiskywalker

#!/usr/bin/env perl

use strict;
use AnyEvent;
use AnyEvent::IRC::Client;
 
# 接続設定
my $channel = '#CHANNEL';
my %config = (
    server   => 'SERVER',

kenjiskywalker

#!/usr/bin/env perl

use warnings;
use strict;
use AnyEvent;
use AnyEvent::IRC::Client;
use Data::Dumper;
 
# 接続設定
my $channel = '#channel';

kenjiskywalker

#!/usr/bin/env perl

use Mojolicious::Lite;
use Web::Scraper;
use URI;
use Web::Scraper;
use HTML::TreeBuilder;
use Data::Dumper;
use utf8;

kenjiskywalker

#!/usr/bin/env perl

use strict;
use warnings;

my $file = './test.txt';

if ( -e $file ) {

    print "allow overrite ok ? [y/n] : ";

kenjiskywalker

#!/usr/bin/env perl

use strict;
use warnings;

use Test::Pod::Coverage tests=>1;
pod_coverage_ok( "foo::bar", "ok!" );

package foo;