mackee

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

mackee

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

=pod

=head2 やりたいこと

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

mackee

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

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

cmpthese 0, {

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 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.014;
use Time::Piece::ISO;
use LWP::Simple;
use JSON::XS;
use Storable;

mackee

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

use 5.016;

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

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 DDP;
use 5.012;
use Benchmark qw/:all/;

my @numerals = qw/zero one two three four five six seven eight nine ten/;

mackee

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

use DDP;
use 5.012;
use Test::More;

my @numerals = qw/zero one two three four five six seven eight nine ten/;