catalystでweblogupdates.pingしてみた。

catalyst 
package MyApp::Controller::ping;

use strict;
use warnings;
use base 'Catalyst::Controller';

use Catalyst qw/XMLRPC/;


sub weblogupdates : Local {
  my ( $self, $c ) = @_;
  $c->xmlrpc;
}

sub ping : XMLRPC('weblogUpdates.ping'){
  my ( $self, $c,@args) = @_;
  my $dt = $c->datetime();
  my $date = $dt->ymd;

  my $weblogname = $args[0];
  my $weblogurl = $args[1];
  if($weblogname && $weblogurl){
    my %site = (
      weblogname => $weblogname,
      weblogurl => $weblogurl,
      updatetime => $date,
  );
    my $creatsite = $c->model('DBIC::Pingdata')->create(\%site);
    $c->stash->{xmlrpc} = {flerror => 0, message => 'thanks' };
  }
  else{
    $c->stash->{xmlrpc} = {flerror => 1, message => 'no thanks' };
  }
}

んでも微妙にはまった