App-Standby

 view release on metacpan or  search on metacpan

examples/complex/complex_endpoint.pl  view on Meta::CPAN

my $q = CGI::->new();

if(update($q)) {
    print $q->header('text/plain');
    print "OK";
} else {
    print $q->header('text/plain');
    print "ERROR";
}

sub update {
    my $q = shift;
    my $group_id = $q->param('group_id');
    my $queue = $q->param('queue');

    return unless $queue && $group_id;

    $queue = URI::Escape::uri_unescape($queue);
    my $JSON = JSON::->new()->utf8();
    my $queue_ref = $JSON->decode($queue);
    $queue = undef;

examples/simple/simple_endpoint.pl  view on Meta::CPAN

my $q = CGI::->new();

if(update($q)) {
    print $q->header('text/plain');
    print "OK";
} else {
    print $q->header('text/plain');
    print "ERROR";
}

sub update {
    my $q = shift;
    my $group_id = $q->param('group_id');
    my $queue = $q->param('queue');

    return unless $queue && $group_id;

    $queue = URI::Escape::uri_unescape($queue);
    my $JSON = JSON::->new()->utf8();
    my $queue_ref = $JSON->decode($queue);
    $queue = undef;

lib/App/Standby/Service.pm  view on Meta::CPAN

has 'group_id' => (
    'is'    => 'ro',
    'isa'   => 'Int',
    'required' => 1,
);
# with ...
# initializers ...

# your code here ...
sub update {
    my $self = shift;
    my $user_ref = shift;

    # this base class does nothing here
    # subclasses should override this method
    # and update their services here ...
    my $new_user_ref = $self->_inject_per_user_config($user_ref);

    return $self->_update($new_user_ref);
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan