File Coverage

blib/lib/Getopt/TypeConstraint/Mouse.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	16	26	61.5

package Getopt::TypeConstraint::Mouse;
use 5.008005;
use strict;
use warnings;
use Mouse;
with qw(MouseX::Getopt::GLD);

our $VERSION = "0.05";

sub get_options {
    my ($class, @args) = @_;
    while (my ($key, $val) = splice @args, 0, 2) {
        for my $alias (qw(desc description doc )) {
            if (exists $val->{$alias}) {
                $val->{documentation} = delete $val->{$alias};
            }
        }
        has $key => ( is => 'ro', %$val);
    }
    $class->new_with_options()
}

1;
__END__