FM / Constraint

/usr/share/perl5/Specio/Constraint

Name	Size	Mode	Actions
Role/	-	0755	rm
AnyCan.pm	3812	0644	edit dl rm
AnyDoes.pm	3114	0644	edit dl rm
AnyIsa.pm	3309	0644	edit dl rm
Enum.pm	3321	0644	edit dl rm
Intersection.pm	4296	0644	edit dl rm
ObjectCan.pm	3026	0644	edit dl rm
ObjectDoes.pm	2700	0644	edit dl rm
ObjectIsa.pm	2711	0644	edit dl rm
Parameterizable.pm	5723	0644	edit dl rm
Parameterized.pm	3317	0644	edit dl rm
Simple.pm	11274	0644	edit dl rm
Structurable.pm	7508	0644	edit dl rm
Structured.pm	2839	0644	edit dl rm
Union.pm	4250	0644	edit dl rm

Edit: /usr/share/perl5/Specio/Constraint/ObjectDoes.pm (2700B)

package Specio::Constraint::ObjectDoes;

use strict;
use warnings;

our $VERSION = '0.47';

use Role::Tiny::With;
use Scalar::Util ();
use Specio::Helpers qw( perlstring );
use Specio::Library::Builtins;
use Specio::OO;

use Specio::Constraint::Role::DoesType;
with 'Specio::Constraint::Role::DoesType';

{
    my $Object = t('Object');
    sub _build_parent {$Object}
}

{
    my $_inline_generator = sub {
        my $self = shift;
        my $val  = shift;

return sprintf( <<'EOF', ($val) x 3, perlstring( $self->role ) );
( Scalar::Util::blessed(%s) && %s->can('does') && %s->does(%s) )
EOF
    };

sub _build_inline_generator {$_inline_generator}
}

## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
sub _allow_classes {0}
## use critic

__PACKAGE__->_ooify;

# ABSTRACT: A class for constraints which require an object that does a specific role

__END__

=pod

=encoding UTF-8

=head1 NAME

Specio::Constraint::ObjectDoes - A class for constraints which require an object that does a specific role

=head1 VERSION

version 0.47

=head1 SYNOPSIS

my $type = Specio::Constraint::ObjectDoes->new(...);
    print $type->role;

=head1 DESCRIPTION

This is a specialized type constraint class for types which require an object
that does a specific role.

=head1 API

This class provides all of the same methods as L<Specio::Constraint::Simple>,
with a few differences:

=head2 Specio::Constraint::ObjectDoes->new( ... )

The C<parent> parameter is ignored if it passed, as it is always set to the
C<Defined> type.

The C<inline_generator> and C<constraint> parameters are also ignored. This
class provides its own default inline generator subroutine reference.

This class overrides the C<message_generator> default if none is provided.

Finally, this class requires an additional parameter, C<role>. This must be a
single role name.

=head2 $object_isa->role

Returns the role name passed to the constructor.

=head1 ROLES

This class does the L<Specio::Constraint::Role::DoesType>,
L<Specio::Constraint::Role::Interface>, and L<Specio::Role::Inlinable> roles.

=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

cmd: