Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Constraint	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Library	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Role	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Coercion.pm	8.12 KB	-rw-rw-rw-	2020-03-14 19:47
Declare.pm	18.75 KB	-rw-rw-rw-	2020-03-14 19:47
DeclaredAt.pm	3.12 KB	-rw-rw-rw-	2020-03-14 19:47
Exception.pm	2.88 KB	-rw-rw-rw-	2020-03-14 19:47
Exporter.pm	3.76 KB	-rw-rw-rw-	2020-03-14 19:47
Helpers.pm	3.3 KB	-rw-rw-rw-	2020-03-14 19:47
OO.pm	10.33 KB	-rw-rw-rw-	2020-03-14 19:47
PartialDump.pm	5.49 KB	-rw-rw-rw-	2020-03-14 19:47
Registry.pm	2.13 KB	-rw-rw-rw-	2020-03-14 19:47
Subs.pm	6.37 KB	-rw-rw-rw-	2020-03-14 19:47
TypeChecks.pm	1.91 KB	-rw-rw-rw-	2020-03-14 19:47

Rename

package Specio::TypeChecks;

use strict;
use warnings;

our $VERSION = '0.46';

use Exporter qw( import );
use Specio::Helpers qw( is_class_loaded );
use Scalar::Util qw( blessed );

our @EXPORT_OK = qw(
    does_role
    is_ArrayRef
    is_ClassName
    is_CodeRef
    is_HashRef
    is_Int
    is_Str
    isa_class
);

sub is_ArrayRef {
    return ref $_[0] eq 'ARRAY';
}

sub is_CodeRef {
    return ref $_[0] eq 'CODE';
}

sub is_HashRef {
    return ref $_[0] eq 'HASH';
}

sub is_Str {
    defined( $_[0] ) && !ref( $_[0] ) && ref( \$_[0] ) eq 'SCALAR'
        || ref( \( my $val = $_[0] ) eq 'SCALAR' );
}

sub is_Int {
    ( defined( $_[0] ) && !ref( $_[0] ) && ref( \$_[0] ) eq 'SCALAR'
            || ref( \( my $val = $_[0] ) eq 'SCALAR' ) )
        && $_[0] =~ /^[0-9]+$/;
}

sub is_ClassName {
    is_class_loaded( $_[0] );
}

sub isa_class {
    blessed( $_[0] ) && $_[0]->isa( $_[1] );
}

sub does_role {
    blessed( $_[0] ) && $_[0]->can('does') && $_[0]->does( $_[1] );
}

# ABSTRACT: Type checks used internally for Specio classes (it's not self-bootstrapping (yet?))

__END__

=pod

=encoding UTF-8

=head1 NAME

Specio::TypeChecks - Type checks used internally for Specio classes (it's not self-bootstrapping (yet?))

=head1 VERSION

version 0.46

=head1 DESCRIPTION

There's nothing public here.

=for Pod::Coverage .*

=head1 SUPPORT

Bugs may be submitted at L<https://github.com/houseabsolute/Specio/issues>.

I am also usually active on IRC as 'autarch' on C<irc://irc.perl.org>.

=head1 SOURCE

The source code repository for Specio can be found at L<https://github.com/houseabsolute/Specio>.

=head1 AUTHOR

Dave Rolsky <autarch@urth.org>

=head1 COPYRIGHT AND LICENSE

This is free software, licensed under:

The Artistic License 2.0 (GPL Compatible)

The full text of the license can be found in the
F<LICENSE> file included with this distribution.

=cut