view release on metacpan or  search on metacpan

lib/ExtJS/AutoForm/Moose/Types.pm  view on Meta::CPAN

    as_is => [ qw(
        reflect extjs
    ) ],
);

our %REGISTRY = ();

#
# SYNTAX CURRY
#
sub extjs(&) { { template => $_[0] } }

sub reflect($$;$) {
    my $type_name = shift;
    my %p = map { %{$_} } @_; #really useless here. done this way since I was hoping to extend own Moose (sub)type sugar

    unless(ref($p{template}) eq "CODE")
    {
        local $Carp::CarpLevel = $Carp::CarpLevel + 1;
        confess("A callback must be provided for type reflection");
    }