File Coverage

blib/lib/Stancer/Core/Types/Bases.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	35	35	100.0

package Stancer::Core::Types::Bases;

use 5.020;
use strict;
use warnings;

# ABSTRACT: Internal bases types
our $VERSION = '1.0.3'; # VERSION

our @EXPORT_OK = ();
our %EXPORT_TAGS = ('all' => \@EXPORT_OK);

use Stancer::Core::Types::Helper qw(error_message);
use Stancer::Exceptions::InvalidArgument;
use List::Util qw(first);
use MooX::Types::MooseLike::Base qw();

use namespace::clean;

use Exporter qw(import);

my @defs = ();

push @defs, {
    name => 'Bool',
    subtype_of => 'Bool',
    from => 'MooX::Types::MooseLike::Base',
    test => sub { defined $_[0] },
    message => error_message('%s is not a bool.'),
    exception => 'Stancer::Exceptions::InvalidArgument',
};

push @defs, {
    name => 'Enum',
    test => sub {
        my ($value, @possible_values) = @_;

        return if not defined $value;
        return first { $value eq $_ } @possible_values;
    },
    message => sub {
        my ($value, @possible_values) = @_;

        my $message = 'Must be one of : %2$s. %1$s given'; ## no critic (RequireInterpolationOfMetachars)
        my $possible = join ', ', map { q/"/ . $_ . q/"/ } @possible_values;

        return error_message($message)->($value, $possible);
    },
    exception => 'Stancer::Exceptions::InvalidArgument',
};

push @defs, {
    name => 'InstanceOf',
    subtype_of => 'InstanceOf',
    from => 'MooX::Types::MooseLike::Base',
    test => sub { 1 },
    exception => 'Stancer::Exceptions::InvalidArgument',
};

push @defs, {
    name => 'Maybe',
    subtype_of => 'Maybe',
    from => 'MooX::Types::MooseLike::Base',
    test => sub { 1 },
    parameterizable => sub { return if not defined $_[0]; $_[0] },
};

push @defs, {
    name => 'Str',
    subtype_of => 'Str',
    from => 'MooX::Types::MooseLike::Base',
    test => sub { 1 },
    message => error_message('%s is not a string.'),
    exception => 'Stancer::Exceptions::InvalidArgument',
};

for my $name (qw(ArrayRef HashRef Int Num)) {
    push @defs, {
        name => $name,
        subtype_of => $name,
        from => 'MooX::Types::MooseLike::Base',
        test => sub { 1 }, # Just an alias
    };
}

Stancer::Core::Types::Helper::register_types(\@defs, __PACKAGE__);

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Stancer::Core::Types::Bases - Internal bases types

=head1 VERSION

version 1.0.3

=head1 USAGE

=head2 Logging



We use the L<Log::Any> framework for logging events.
You may tell where it should log using any available L<Log::Any::Adapter> module.

For example, to log everything to a file you just have to add a line to your script, like this:
    #! /usr/bin/env perl
    use Log::Any::Adapter (File => '/var/log/payment.log');
    use Stancer::Core::Types::Bases;

You must import C<Log::Any::Adapter> before our libraries, to initialize the logger instance before use.

You can choose your log level on import directly:
    use Log::Any::Adapter (File => '/var/log/payment.log', log_level => 'info');

Read the L<Log::Any> documentation to know what other options you have.

=cut

=head1 SECURITY

=over

=item *

Never, never, NEVER register a card or a bank account number in your database.

=item *

Always uses HTTPS in card/SEPA in communication.

=item *

Our API will never give you a complete card/SEPA number, only the last four digits.
If you need to keep track, use these last four digit.

=back

=cut

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website
L<https://gitlab.com/wearestancer/library/lib-perl/-/issues> or by email to
L<[e-mail]|mailto:[e-mail]>.

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

=head1 AUTHOR

Joel Da Silva <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2018-2024 by Stancer / Iliad78.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut