├── lib
    └── MyFibo.pm
├── script
    └── .gitkeep
└── t
    └── lib
        └── MyFibo.t


/lib/MyFibo.pm:
--------------------------------------------------------------------------------
 1 | package MyFibo;
 2 | use strict;
 3 | use warnings;
 4 | 
 5 | sub calculate {
 6 |     my ($class, $init) = @_;
 7 |     return 1 + 2;
 8 | }
 9 | 
10 | 1;
11 | 


--------------------------------------------------------------------------------
/script/.gitkeep:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/mixi-inc/GitTraining/62b829eb22d75cada9c640c7ebfff185a9ffa0f2/script/.gitkeep


--------------------------------------------------------------------------------
/t/lib/MyFibo.t:
--------------------------------------------------------------------------------
 1 | #!/usr/bin/perl
 2 | 
 3 | use strict;
 4 | use warnings;
 5 | 
 6 | use Test::More;
 7 | use MyFibo;
 8 | 
 9 | subtest 'calculate' => sub {
10 |     subtest 'when called with 4' => sub {
11 |         is(MyFibo->calculate(4), 3, 'should return 3');
12 |     };
13 | };
14 | 
15 | done_testing;
16 | 


--------------------------------------------------------------------------------