The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package My::Subclass;

use strict;
use warnings FATAL => qw(all);

use WebService::UrbanAirship::APNS;

our @ISA = qw(WebService::UrbanAirship::APNS);


sub _api_uri {

  my $port = eval {
    require Apache::Test;
    require Apache::TestRequest;

    Apache::Test::config()->{vhosts}
                          ->{TestLive}
                          ->{port};
  };

  return URI->new("https://localhost:$port");
}

1;