mackee

package TestMe;

use Mouse;

has 'status' => (
    is => 'rw',
    isa => 'Int',
    required => 1,
);

mackee

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

use 5.016;

use Net::GitHub;
use Config::Pit;

mackee

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

use 5.014;
use Time::Piece::ISO;
use LWP::Simple;
use JSON::XS;
use Storable;

mackee

#!/usr/bin/env python
# -*- coding: utf-8 -*-

import sys
import os
import time
import subprocess
from threading import Thread
import signal

mackee

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

use Benchmark qw/:all/;
use DateTime;
use DateTime::Tiny;
use Time::Piece;

mackee

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

use Benchmark qw/cmpthese/;
use DateTime::Tiny;

cmpthese 0, {

mackee

use strict;
use warnings;
use utf8;
use 5.10.1;

=pod

=head2 やりたいこと

    Parentを継承したオブジェクトのas_stringの返り値にprefixを付けたい

mackee

use strict;
use warnings;
use utf8;
use 5.10.1;
 
package Parent {
    use Mouse;
 
    no Mouse;
 

mackee

#!/usr/bin/env perl
use 5.016;
use warnings;

use Benchmark qw/:all/;
use File::Temp qw/tempfile/;
use Storable qw/nstore retrieve/;
use DateTime::Tiny;

my $code = sub {

mackee

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

use Benchmark qw/cmpthese/;
use Test::mysqld;
use DBI;
use Sys::Ramdisk;
use feature qw/say/;