[ Mini Kiebo ]

Server: Windows NT DESKTOP-5B8S0D4 6.2 build 9200 (Windows 8 Professional Edition) i586 Path: D:/0xampp/perl/vendor/lib/MooseX/Meta/TypeConstraint/Structured/ [ Home ]

File: Optional.pm

package ## Hide from PAUSE
  MooseX::Meta::TypeConstraint::Structured::Optional;

our $VERSION = '0.36';

use Moose;
use MooseX::Meta::TypeCoercion::Structured::Optional;

extends 'Moose::Meta::TypeConstraint::Parameterizable';

around parameterize => sub {
    my $orig = shift;
    my $self = shift;

    my $ret = $self->$orig(@_);

    $ret->coercion(MooseX::Meta::TypeCoercion::Structured::Optional->new(type_constraint => $ret));

    return $ret;
};

no Moose;
__PACKAGE__->meta->make_immutable(inline_constructor => 0);

1;