狠狠撸

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 $tb = Time::Band->new($start1,$end2);
$tb->add($start3,$start4);
my $res = $tb->result();

print Dumper $res;
[
[
Time::Piece,
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
],
]

Time band