File Coverage

example/lib/QxExample/JsonRpcService.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	35	35	100.0

package QxExample::JsonRpcService;
use strict;
use Mojo::Base -base;

=head1 NAME

JsonRpcService - RPC services for Qooxdoo

=head1 SYNOPSIS

This module gets instanciated by L and provides backend functionality for your qooxdoo app

=head1 DESCRIPTION

All methods on this class can get called remotely as long as their name does not start with an underscore.

=head2 new()

Create a service object.

=cut

sub new {
    my $self = shift->SUPER::new(@_);
    # do some other interesting initialization work
    return $self;
}

=head2 allow_rpc_access

check it this method may be called

=cut

our %allow_access =  (
    echo => 1
);

sub allow_rpc_access {
    my $self = shift;
    my $method = shift;
    return $allow_access{$method};
}

=head2 echo(var)

return the string we input

=cut

sub echo {
    my $self = shift;
    my $arg = shift or die QxExample::Exception->new(code=>123,message=>"Argument Required!");
    return $arg;
}

package QxExample::Exception;
use Mojo::Base -base;
has 'code';
has 'message';
use overload ('""' => 'stringify');
sub stringify {
    my $self = shift;
    return "ERROR ".$self->code.": ".$self->message;
}

1;
__END__