perl -MData::Dumper -MDateTime -wle'$past = DateTime->now->subtract(months=>2); $now =
DateTime->now; $dur = $now->delta_days($past); print Dumper $dur; print $dur->days'
$VAR1 = bless( {
'seconds' => 0,
'minutes' => 0,
'end_of_month' => 'wrap',
'nanoseconds' => 0,
'days' => 61,
'months' => 0,
'sign' => 1
}, 'DateTime::Duration' );5
perl -MData::Dumper -MDateTime -wle'$past = DateTime->now->subtract(months=>2); $now =
DateTime->now; $dur = $now - $past; print Dumper $dur; print $dur->delta_days'
$VAR1 = bless( {
'seconds' => 0,
'minutes' => 0,
'end_of_month' => 'wrap',
'nanoseconds' => 0,
'days' => 0,
'months' => 2,
'sign' => 1
}, 'DateTime::Duration' );0
