| Agent-TCLI documentation | Contained in the Agent-TCLI distribution. |
Agent::TCLI::Package::Tail::Line - A class for tailed lines to be tested.
An internal object for storing Agent::TCLI::Test::Line information. Used to facilitate Agent::TCLI::Test::Tail.
The following attributes are accessible through standard accessor/mutator methods unless otherwise noted
The 'line' as it is input into the cache. Traditionally this will be the actual text fron the file being tailed. It may optionally be another object to be tested against. The POE::Filter being used with the Tail determines what the contents of input will be.
The relative position within the current run of all lines. count will only contain numeric values.
The birth_time that the line hit the tail system. birth_time will only contain Numeric values.
Line time to live. Set as an offset to time() upon creation so this is the actual time the line should expire. ttl will only contain Numeric values.
A URI indicating the source of the line. Necessary for monitoring multiple sources.
Describes the line type. "line" for plain text lines, ref($input) for objects. Perhaps others in the future. type will only contain scalar values.
See Attributes for their description.
This module is an Object::InsideOut object that inherits from Agent::TCLI::Base. It inherits methods from both. Please refer to their documentation for more details.
Eric Hacker <hacker at cpan.org>
SHOULDS and MUSTS are currently not enforced.
Test scripts not thorough enough.
Copyright (c) 2007, Alcatel Lucent, All rights resevred.
This package is free software; you may redistribute it and/or modify it under the same terms as Perl itself.
| Agent-TCLI documentation | Contained in the Agent-TCLI distribution. |
package Agent::TCLI::Package::Tail::Line; # # $Id: Line.pm 59 2007-04-30 11:24:24Z hacker $ #
use warnings; use strict; use Object::InsideOut qw(Agent::TCLI::Base); our $VERSION = '0.030.'.sprintf "%04d", (qw($Id: Line.pm 59 2007-04-30 11:24:24Z hacker $))[2];
my @input :Field :All('input');
my @count :Field :Type('numeric') :All('count');
my @birth_time :Field :Type('Numeric') :All('birth_time');
my @ttl :Field :Type('Numeric') :All('ttl');
my @source :Field :All('source');
my @type :Field # :Type('scalar') :All('type'); # Standard class utils are inherited
1; #__END__