4 extends 'MooseX::Types::Wrapper';
6 #use base 'MooseX::Types::Wrapper';
8 override type_export_generator => sub {
10 return sub { $code->(@_) };
13 #sub type_export_generator {
15 # my ($type, $full) = @_;
16 # my $code = $class->next::method(@_);
17 # return sub { $code->(@_) };
20 override check_export_generator => sub {
23 return $code unless @_;
28 #sub check_export_generator {
30 # my ($type, $full, $undef_msg) = @_;
31 # my $code = $class->next::method(@_);
33 # return $code unless @_;
38 override coercion_export_generator => sub {
41 my $value = $code->(@_);
42 die "coercion returned undef\n" unless defined $value;
47 #sub coercion_export_generator {
49 # my ($type, $full, $undef_msg) = @_;
50 # my $code = $class->next::method(@_);
52 # my $val = $code->(@_);
53 # die "coercion returned undef\n" unless defined $val;