File Coverage

lib/WebService/OpenSky/Moose.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	4	6	66.6
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	19	21	90.4

package WebService::OpenSky::Moose;

# ABSTRACT: MooseX::Extended::Custom for WebService::OpenSky

use MooseX::Extended::Custom;
our $VERSION = '0.3';

# If $^P is true, we're running under the debugger.
#
# When running under the debugger, we disable __PACKAGE__->meta->make_immutable
# because the way the debugger works with B::Hooks::AtRuntime will cause
# the class to be made immutable before the we apply everything we need. This
# causes the code to die.
sub import {
    my ( $class, %args ) = @_;

    # we exclude strictconstructor because, otherwise, the delayed param trick
    # for OpenSky::API::Core will fail.
    my @excludes = 'StrictConstructor';
    if ($^P) {
        state $warned;
        unless ($warned) {
            $warned++;
            say STDERR "Running under the debugger. Excluding make_immutable\n";
        }
        push @excludes => 'immutable';
    }
    push @excludes => 'immutable' unless $^P;
    MooseX::Extended::Custom->create(
        includes => [ 'method', 'try' ],
        excludes => \@excludes,
        %args    # you need this to allow customization of your customization
    );
}

__END__

=pod

=encoding UTF-8

=head1 NAME

WebService::OpenSky::Moose - MooseX::Extended::Custom for WebService::OpenSky

=head1 VERSION

version 0.3

=head1 DESCRIPTION

No user-serviceable parts inside.

=head1 AUTHOR

Curtis "Ovid" Poe <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2023 by Curtis "Ovid" Poe.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut