第7回：Ajaxで登録フォーム (3/3)

package Catalyst::Plugin::MyPlugin;

sub hoge{
my($c, @args) = @_;
# …
}

1;


package Catalyst::Plugin::LWP::UA;

use Next;
our $VERSION = 0.01;

sub prepare{
   my $class = shift;
   my $c = $class->NEXT::prepare(@_);
   my $ua = new LWP::UserAgent;
   $c->{'LWP::UserAgent'} = $ua;
   return $c;
}

sub get{
   my($c, $url) = @_;
   my $ua = $c->{'LWP::UserAgent'};
   # …
}


my $c = $class->NEXT::prepare(@_);