title: How to make DateTime::Duration output only in days?
body: <p>This code finds the difference between today and a fixed date.</p>
  
  <pre><code>#!/usr/bin/perl
  
  use strict;
  use warnings;
  use Data::Dumper;
  
  use DateTime ();
  use DateTime::Duration ();
  use DateTime::Format::Strptime ();
  
  my $date = "23/05-2022";
  
  my $parser = DateTime::Format::Strptime-&gt;new(
      pattern     =&gt; '%d/%m-%Y',
      time_zone   =&gt; 'local',
      );
  
  $date = $parser-&gt;parse_datetime($date);
  
  my $today = DateTime-&gt;today(time_zone=&gt;'local');
  
  my $d = DateTime::Duration-&gt;new($today - $date);
  
  print Dumper $d-&gt;delta_days;
  </code></pre>
  
  <p>The problem is that is only outputs -22 days.</p>
  
  <p>If I do <code>print Dumper $d;</code> I can see the -130 months as well.</p>
  
  <pre><code>$VAR1 = bless( {
                   'seconds' =&gt; 0,
                   'minutes' =&gt; 0,
                   'end_of_month' =&gt; 'preserve',
                   'nanoseconds' =&gt; 0,
                   'days' =&gt; -22,
                   'months' =&gt; -130
                 }, 'DateTime::Duration' );
  </code></pre>
  
  <p>How do I get it to output the result in days?</p>
  
  <p>Doing</p>
  
  <pre><code>print Dumper $d-&gt;delta_days + $d-&gt;delta_months*30;
  </code></pre>
  
  <p>doesn't seam like an elegant solution.</p>