The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# $Id: /mirror/coderepos/lang/perl/Mvalve/trunk/lib/Mvalve/Throttler.pm 65640 2008-07-14T02:23:54.737244Z daisuke  $

package Mvalve::Throttler;
use Moose::Role;

requires qw(try_push interval max_items);

no Moose;

1;

__END__

=head1 NAME

Mvalve::Throttler - Throttler Role

=head1 SYNOPSIS

  package MyThrottler;
  use Moose;

  with 'Mvalve::Throttler';

  no Moose;

  sub try_push  {}
  sub interval  {}
  sub max_items {}

=cut