Не косяк, а фича.
В Panda::Date $date1 - $date2 дает объект класса Panda::Date::Int, а не
Panda::Date::Rel.
И в этом Panda::Date отличается от Class::Date, смотри
https://metacpan.org/pod/distribution/Panda-Date/lib/Panda/Date.pod#Class::Date-INCOMPABILITIES
Наверно, это правильней..
Я не такой продвинутый вычиталель дат, навскидку вот так работает
perl -Mstrict -MPanda::Date=date -E 'my $dt = date; my $dt2 = $dt + "1y
3h";
say +($dt2 - $dt)->relative'
или так
Panda::Date::Rel->new($d1, $d2)
Тут есть, кто может объяснить, как задумано.
ЗЫ.
У меня одного gmail рассылку в спам кладет?
On 06/30/2016 03:05 PM, Alexey Shrub wrote:
On Чт, июн 30, 2016 в 12:10 , Андрей Асякин <[email protected]> wrote:
Panda::Date все ж таки рекомендую. dt1 in (dt2..dt3) естественно, нет.
косяк в нём какой-то
perl -E 'use strict;use Data::Dumper;use Panda::Date qw(date); my $dt1
= date "2016-06-30 13:00"; my $dt2 = date "2016-06-30 13:20"; my
$duration = ($dt2 - $dt1); say ($dt2-$duration);'
Panda::Date: cannot '-' unsupported object type at -e line 1.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
