I'm writing a script to generate a report of interesting astronomical events for a specified month. Mostly it's going very well, but I have struck a problem which I suspect is time zone related, but just can't make sense of. The script below is supposed to calculate Sun rise and set times as observed by a telescope in Wellington, New Zealand. Instead it seems to insist on generating UTC times even though the DateTime objects representing the rise and set times know that they are using 'Pacific/Auckland' time. Assuming the times are UTC, they are plausible.

Can anyone see what I'm doing wrong or have misunderstood? (Yes, even in New Zealand in the Southern Hemisphere the sun rises before it sets on the same day.)

use strict;
use warnings;
use Astro::Coords::Planet;
use Astro::Telescope;
use DateTime;

my %params = (
    year      => 2022,
    month     => 4,
    day       => 1,
    hour      => 0,
    minute    => 1,
    second    => 0,
    time_zone => 'Pacific/Auckland',
    );
my $obsDate = DateTime->new(%params);
my $cSun = Astro::Coords->new(planet => 'sun');

$cSun->telescope(Astro::Telescope->new('485'));
$cSun->datetime($obsDate);
$cSun->datetime()->set_time_zone('Pacific/Auckland');

my $sRise = $cSun->rise_time();
my $sSet = $cSun->set_time();
my $tz = $sRise->time_zone()->name();

print "Rise: $sRise   Set: $sSet ($tz)\n";
[download]

Prints:

Rise: 2022-04-01T18:34:16   Set: 2022-04-01T06:12:04 (Pacific/Auckland
+)
[download]

Expected:

Rise: 2022-04-01T06:12:04   Set: 2022-04-01T18:34:16 (Pacific/Auckland
+)
[download]