Yet Another CPAN Grep

MetaStore ( Z/ZA/ZAG/MetaStore-0.62.tar.gz, ZAG, 2015; MetaCPAN )

MetaStore/lib/MetaStore/Response.pm ( view source; MetaCPAN )

ore::Response;

#$Id$

use Data::Dumper;
use WebDAO::Response;
use JSON;
use WebDAO;
use base qw( WebDAO::Response );
mk_attr ( __json=>undef, __html=>undef, __xml=>undef);
our $VERSION = '0.1';

use

 functionality to return context.

=head1 METHODS

=cut

=head2 json 

=cut

sub json : lvalue {
    my $self = shift;
    $self->{__json};
}


sub raw : lvalue {
    my $self = shift;
    $self->{__r

 $res ;
    if ( exists $accept->{'application/javascript'} ) {
        $res = $self->json;
        $res = to_json($res) unless  ref($res) eq 'CODE';
    } else {
        $res = $self->html
    }