[Catalyst] AtomPP implementation question

[D.Murase]

Hi all.

I'm writing AtomPP implementation with Catalyst,
and wrote this Plugin (attached).

Usage is:

# call $c->atom in your action
sub entry : Local {
    my ( $self, $c ) = @_;
    $c->atom;
}

# and then, dispatch to
# (create|retrieve|update|delete)_entry methods

sub create_entry : Atom {
    my ( $self, $c ) = @_;

    my $new_entry = $c->req->entry; # XML::Atom object

    ...
}

---------

But I think this implementation may be not elegant :(

Someone has any ideas ?


----
Daisuke Murase <typester at gmail.com>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: AtomPP.pm
Type: application/octet-stream
Size: 2736 bytes
Desc: not available
Url : http://lists.rawmode.org/pipermail/catalyst/attachments/20050913/7d36a395/AtomPP.obj