lib/Catalyst/Helper/ComponentGen.pm

   1 package Catalyst::Helper::ComponentGen;
   2 use Moose;
   3 use namespace::autoclean;
   4 extends { 'Catalyst::Helper' };
   5
   6 # Test
   7 $self->{test_dir} = File::Spec->catdir( $FindBin::Bin, '..', 't' );
   8 $self->{test}     = $self->next_test;
   9
  10 # Helper
  11 if ($helper) {
  12     my $comp  = $self->{long_type};
  13     my $class = "Catalyst::Helper::$comp\::$helper";
  14     eval "require $class";
  15
  16     if ($@) {
  17         Catalyst::Exception->throw(
  18             message => qq/Couldn't load helper "$class", "$@"/ );
  19     }
  20
  21     if ( $class->can('mk_compclass') ) {
  22         return 1 unless $class->mk_compclass( $self, @args );
  23     }
  24     else { return 1 unless $self->_mk_compclass }
  25
  26     if ( $class->can('mk_comptest') ) {
  27         $class->mk_comptest( $self, @args );
  28     }
  29     else { $self->_mk_comptest }
  30 }
  31
  32 1;