Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
Constraint	[ DIR ]	drwxr-xr-x
Library	[ DIR ]	drwxr-xr-x
Role	[ DIR ]	drwxr-xr-x
Coercion.pm	8.12 KB	-rw-r--r--
Declare.pm	18.63 KB	-rw-r--r--
DeclaredAt.pm	3.12 KB	-rw-r--r--
Exception.pm	2.88 KB	-rw-r--r--
Exporter.pm	3.76 KB	-rw-r--r--
Helpers.pm	3.1 KB	-rw-r--r--
OO.pm	9.3 KB	-rw-r--r--
PartialDump.pm	5.76 KB	-rw-r--r--
Registry.pm	2.13 KB	-rw-r--r--
Subs.pm	6.37 KB	-rw-r--r--
TypeChecks.pm	1.91 KB	-rw-r--r--

Code Editor : TypeChecks.pm

package Specio::TypeChecks;

use strict;
use warnings;

our $VERSION = '0.42';

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.42

=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

${this.title}

Code Editor : TypeChecks.pm