++ed by:
YUUKI SYP

2 PAUSE user(s)

Masahiro Nagano
and 1 contributors

NAME

App::derived::Plugin - base class of App::derived::Plugin

SYNOPSIS

  package App::derived::Plugin::Dumper;
  
  use strict;
  use warnings;
  use parent qw/App::derived::Plugin/;
  use Data::Dumper;
  use Class::Accessor::Lite (
      ro => [qw/interval/]
  );
  
  sub int {
      my $self = shift;
      $self->interval(10) unless $self->interval;

      $self->add_worker(
          'dumper',
          sub {
              while (1) {
                  sleep $self->interval;
                  my @keys = $self->service_keys();
                  for my $key ( @keys ) {
                      my $ref = $self->service_stats->{$key}
                      print Dumper([$key,$ref]);
                  }
              }
          }  
      );
  }

DESCRIPTION

This module is base class to make App::derived Plugin.

METHODS

new
json(): Object

Utility method. returns JSON.pm object

service_stats($key): HashRef

Retrieve service status

exists_service($key): Bool

Checking existence of service named $key

service_keys(): Array

get all registered service keys

add_worker($tag:String, $code:SubRef)

Registering a worker

init

Required to implementing this method in your Plugin

SEE ALSO

<App::derived::Plugin::Memcached>

AUTHOR

Masahiro Nagano <kazeburo@gmail.com>

LICENSE

Copyright (C) Masahiro Nagano

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.