Time::Band.pm 時間 "帯 "の加減をするモジュール

今 YAPCの前夜祭中

フリービール飲んで調子に載ってる。

t ku_bass◯ さんから

｢解説記事待ち｣

とツイートされたので、書いてみた。

こんなことしたいです。其ノ一

時間帯の加算

9:00 - 15:00

16:00 - 22:00

9:00 - 22:00

こんなことしたいです。其ノ二

時間帯の減算

9:00 - 22:00

12:00 - 18:59

9:00 - 11:59 19:00 - 22:00

そんなことをしたい人他にもいるよね !!!

作りました !!?Time::Band!!

https://github.com/rozary/p5-Time-Band

こんな使い方 @加算

my $start1 = #Time::Piece;

my $start2 = #Time::Piece;

my $tb = Time::Band->new($start1,$end2);

$tb->add($start3,$start4);

my $res = $tb->result();

print Dumper $res;

[

[

Time::Piece,

Time::Piece

]

]

で、こんな結果 @加算

こんな使い方 @減算

my $start1 = #Time::Piece;

my $start2 = #Time::Piece;

my $tb = Time::Band->new($start1,$end2);

$tb->except($start3,$start4);

my $res = $tb->result();

で、こんな結果 @減算

[

[

Time::Piece,

Time::Piece

],[

Time::Piece,

Time::Piece

],

]

テスト募集 !!!

そして、YAPC最高 !!