File Coverage

blib/lib/XAS/Logmon/Input/File.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch			n/a
condition			n/a
subroutine	1	4	25.0
pod	2	2	100.0
total	6	17	35.2

package XAS::Logmon::Input::File;

our $VERSION = '0.01';

use XAS::Class
  debug     => 0,
  version   => $VERSION,
  base      => 'XAS::Base',
  accessors => 'fh',
  vars => {
    PARAMS => {
      -filename => { isa => 'Badger::Filesystem::File' },
    }
  }
;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub get {
    my $self = shift;

    return $self->fh->getline();

}

sub DESTROY {
    my $self = shift;

    $self->fh->close();

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

sub init {
    my $class = shift;

    my $self = $class->SUPER::init(@_);

    $self->{'fh'} = $self->filename->open('r');

    return $self;

}

1;

__END__