Masahiro Nagano > App-derived-0.05 > App::derived::Plugin

Download:
App-derived-0.05.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source   Latest Release: App-derived-0.10

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.

syntax highlighting: