File Coverage

lib/XT/Files/File.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	18	18	100.0
condition			n/a
subroutine	13	13	100.0
pod	0	5	0.0
total	65	70	92.8

package XT::Files::File;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.001';

use Class::Tiny 1 qw(name);

use overload (
    q{""}    => sub    { shift->name },
    bool     => sub () { return 1 },
    fallback => 1,
);

use Carp ();

sub BUILD {
    my ( $self, $args ) = @_;

    Carp::croak 'name attribute required' if !defined $self->name;

    $self->{_module} = $args->{is_module} ? 1 : q{};
    $self->{_pod}    = $args->{is_pod}    ? 1 : q{};
    $self->{_script} = $args->{is_script} ? 1 : q{};
    $self->{_test}   = $args->{is_test}   ? 1 : q{};

    return;
}

sub is_module {
    my ($self) = @_;

    return $self->{_module} ? 1 : q{};
}

sub is_pod {
    my ($self) = @_;

    return $self->{_pod} ? 1 : q{};
}

sub is_script {
    my ($self) = @_;

    return $self->{_script} ? 1 : q{};
}

sub is_test {
    my ($self) = @_;

    return $self->{_test} ? 1 : q{};
}

1;

__END__