view release on metacpan or  search on metacpan

lib/Catalyst/Plugin/MapComponentDependencies/Utils.pm  view on Meta::CPAN

sub is_model($) { return _is(shift, model_ns) }
sub is_view($) { return _is(shift, view_ns) }
sub is_controller($) { return _is(shift, controller_ns) }
sub is_component($) { return _is(shift, component_ns) }
sub is_code($) { return _is(shift, code_ns) }

sub FromModel($) { my $v = shift; return bless \$v, model_ns }
sub FromView($) { my $v = shift; return bless \$v, view_ns }
sub FromController($) { my $v = shift; return bless \$v, controller_ns }
sub FromComponent($) { my $v = shift; return bless \$v, component_ns }
sub FromCode(&) { my $v = shift; return bless \$v, code_ns }

sub FromContext {
  return FromCode {
    my ($c, $name, $config) = @_;
    return blessed $c ? $c : undef;
  };
}

sub FromRequest {
  return FromCode {