File Coverage

blib/lib/Pod/ProjectDocs/Doc.pm

Criterion	Covered	Total	%
statement	64	70	91.4
branch	5	12	41.6
condition	5	9	55.5
subroutine	14	15	93.3
pod	0	4	0.0
total	88	110	80.0

package Pod::ProjectDocs::Doc;

use strict;
use warnings;

our $VERSION = '0.53';    # VERSION

use Moose;
with 'Pod::ProjectDocs::File';

use File::Basename;
use File::Spec;
use File::Copy;
use Carp();

has 'origin' => (
    is  => 'rw',
    isa => 'Str',
);

has 'suffix' => (
    is  => 'rw',
    isa => 'Str',
);

has 'origin_root' => (
    is  => 'rw',
    isa => 'Str',
);

has 'title' => (
    is  => 'rw',
    isa => 'Str',
);

has 'data' => (
    is      => 'ro',
    default => <<'DATA',
<div class="box">
  <h1 class="t1">[% title | html %]</h1>
  <table>
    <tr>
      <td class="label">Description</td>
      <td class="cell">[% desc | html | html_line_break %]</td>
    </tr>
  </table>
</div>
<div class="path">
  <a href="[% outroot _ '/index.html' | relpath %]">[% title | html %]</a> &gt; [% mgr_desc | html %] &gt;
  [% name | html %]
</div>
<div>
[% IF !nosourcecode %]
<a href="[% src | relpath %]">Source</a>
[% END %]
</div>
DATA
);

sub BUILD {
    my $self = shift;

    # This must be done after the other data is available.
    $self->_set_relpath;
    return;
}

sub _set_relpath {
    my $self   = shift;
    my $suffix = $self->suffix;
    my ( $name, $dir ) = fileparse $self->origin, qr/\.$suffix/;
    my $reldir = File::Spec->abs2rel( $dir, $self->origin_root );
    $reldir ||= File::Spec->curdir;
    my $outroot = $self->config->outroot;
    $self->_check_dir( $reldir, $outroot );
    $self->_check_dir( $reldir, File::Spec->catdir( $outroot, "src" ) );
    my $relpath = File::Spec->catdir( $reldir, $name );
    $relpath =~ s:\\:/:g if $^O eq 'MSWin32';

    if ( lc $suffix eq 'pm' || lc $suffix eq 'pod' ) {
        $self->name( join "::", File::Spec->splitdir($relpath) );
    }
    else {
        $self->name( join "/", File::Spec->splitdir($relpath) );
    }
    $self->relpath( $relpath . "." . $suffix . ".html" );
    return;
}

sub _check_dir {
    my ( $self, $dir, $path ) = @_;
    $self->_mkdir($path);
    my @dirs = File::Spec->splitdir($dir);
    foreach my $dir (@dirs) {
        $path = File::Spec->catdir( $path, $dir );
        $self->_mkdir($path);
    }
    return;
}

sub _mkdir {
    my ( $self, $path ) = @_;
    unless ( -e $path && -d _ ) {
        mkdir( $path, 0755 )
          or Carp::croak(qq/Can't make directory [$path]./);
    }
    return;
}

sub get_output_src_path {
    my $self    = shift;
    my $outroot = File::Spec->catdir( $self->config->outroot, "src" );
    my $relpath = $self->relpath;
    my $suffix  = $self->suffix;
    $relpath =~ s/\.html$//;
    my $path = File::Spec->catfile( $outroot, $relpath );
    return $path;
}

sub copy_src {
    my $self   = shift;
    my $origin = $self->origin;
    my $newsrc = $self->get_output_src_path;
    File::Copy::copy( $origin, $newsrc );
    return;
}

sub is_modified {
    my $self   = shift;
    my $origin = $self->origin;
    my $newsrc = $self->get_output_src_path;
    return 1 unless ( -e $newsrc );
    return ( -M $origin < -M $newsrc ) ? 1 : 0;
}

no Moose;

1;