File Coverage

blib/lib/Net/Hotline/FileInfoItem.pm

Criterion	Covered	Total	%
statement	6	26	23.0
branch	0	16	0.0
condition			n/a
subroutine	2	11	18.1
pod	9	9	100.0
total	17	62	27.4

package Net::Hotline::FileInfoItem;

## Copyright(c) 1998-2002 by John C. Siracusa.  All rights reserved.  This
## program is free software; you can redistribute it and/or modify it under
## the same terms as Perl itself.

use strict;

use vars qw($VERSION);

$VERSION = '0.80';

sub new
{
  my($class) = shift;

  my($self) =
  {
    'ICON'    => undef,
    'TYPE'    => undef,
    'CREATOR' => undef,
    'SIZE'    => undef,
    'NAME'    => undef,
    'COMMENT' => undef,
    'CTIME'   => undef,
    'MTIME'   => undef
  };

  bless  $self, $class;
  return $self;
}

sub icon
{
  $_[0]->{'TYPE'} = $_[1]  if(@_ == 2);
  return $_[0]->{'TYPE'};
}

sub type
{
  $_[0]->{'TYPE'} = $_[1]  if(@_ == 2);
  return $_[0]->{'TYPE'};
}

sub creator
{
  $_[0]->{'CREATOR'} = $_[1]  if(@_ == 2);
  return $_[0]->{'CREATOR'};
}

sub size
{
  $_[0]->{'SIZE'} = $_[1]  if(@_ == 2);
  return $_[0]->{'SIZE'};
}

sub name
{
  $_[0]->{'NAME'} = $_[1]  if(@_ == 2);
  return $_[0]->{'NAME'};
}

sub comment
{
  $_[0]->{'COMMENT'} = $_[1]  if(@_ == 2);
  return $_[0]->{'COMMENT'};
}

sub ctime
{
  $_[0]->{'CTIME'} = $_[1]  if(@_ == 2);
  return $_[0]->{'CTIME'};
}

sub mtime
{
  $_[0]->{'MTIME'} = $_[1]  if(@_ == 2);
  return $_[0]->{'MTIME'};
}

1;