File Coverage

blib/lib/DMOSS/File.pm

Criterion	Covered	Total	%
statement	26	44	59.0
branch	6	24	25.0
condition	1	3	33.3
subroutine	6	12	50.0
pod	8	8	100.0
total	47	91	51.6

package DMOSS::File;
# ABSTRACT: DMOSS file object
$DMOSS::File::VERSION = '0.01_2';
use strict;
use warnings;

use File::Basename ();
use File::Slurp qw/slurp/;

sub new {
  my ($class, $basedir, $fullpath) = @_;
  my $self = bless({}, $class);

  $self->fullpath($fullpath);
  $self->basename(File::Basename::basename($fullpath)) if $fullpath;
  $self->dirname(File::Basename::dirname($fullpath)) if $fullpath;
  my $path = $fullpath;
  $path =~ s/$basedir//g if $path;
  $path =~ s/^\/+//g if $path;
  $self->{path} = $path;
  $self->{isfile} = 1 unless ($fullpath and -d $fullpath);

  #$self->content(slurp $fullpath) if -e $fullpath;

  return $self;
}

sub basename {
  my ($self, $basename) = @_;
  $self->{basename} = $basename if $basename;

  return $self->{basename};
}

sub fullpath {
  my ($self, $fullpath) = @_;
  $self->{fullpath} = $fullpath if $fullpath;

  return $self->{fullpath};
}

sub dirname {
  my ($self, $dirname) = @_;
  $self->{dirname} = $dirname if $dirname;

  return $self->{dirname};
}

sub path {
  my ($self, $path) = @_;
  $self->{path} = $path if $path;

  return $self->{path};
}

sub type {
  my ($self, $type) = @_;
  $self->{type} = $type if $type;

  return $self->{type};
}

sub content {
  my ($self, $content) = @_;
  $self->{content} = $content if $content;

  return $self->{content};
}

sub isfile {
  my ($self, $isfile) = @_;
  $self->{isfile} = $isfile if $isfile;

  return $self->{isfile};
}

1;

__END__