File Coverage

blib/lib/HTML/Manipulator/Document.pm

Criterion	Covered	Total	%
statement	60	62	96.7
branch	6	8	75.0
condition	2	3	66.6
subroutine	19	20	95.0
pod	3	17	17.6
total	90	110	81.8

use strict;
use HTML::Manipulator;

package HTML::Manipulator::Document;

our $VERSION = '0.07';

use Carp;

sub from_string {
    my ( $class, $html ) = @_;
    my $self = bless { html => $html }, $class;
    return $self;
}

sub from_file {
    my ( $class, $file ) = @_;
    my $html;
    if ( UNIVERSAL::isa( $file, 'GLOB' ) or UNIVERSAL::isa( \$file, 'GLOB' ) ) {
        $html = join '', <$file>;
    } else {
        require FileHandle;
        my $fh = new FileHandle( $file, 'r' );
        croak "could not open the file $file for reading: $!" unless $fh;
        $html = join '', <$fh>;
        $fh->close;
    }
    return $class->from_string($html);
}

sub as_string {
    my ($self) = @_;
    return $self->{html};
}

sub replace {
    my ( $self, @args ) = @_;
    $self->{html} = HTML::Manipulator::replace( $self->{html}, @args );
}

sub replace_title {
    my ( $self, @args ) = @_;
    $self->{html} = HTML::Manipulator::replace_title( $self->{html}, @args );
}

sub extract {
    my ( $self, @args ) = @_;
    HTML::Manipulator::extract( $self->{html}, @args );
}

sub extract_content {
    my ( $self, @args ) = @_;
    HTML::Manipulator::extract_content( $self->{html}, @args );
}

sub extract_all {
    my ( $self, @args ) = @_;
    HTML::Manipulator::extract_all( $self->{html}, @args );
}

sub extract_all_content {
    my ( $self, @args ) = @_;
    HTML::Manipulator::extract_all_content( $self->{html}, @args );
}

sub extract_all_ids {
    my ( $self, @args ) = @_;
    HTML::Manipulator::extract_all_ids( $self->{html}, @args );
}

sub extract_title {
    my ($self) = @_;
    HTML::Manipulator::extract_title( $self->{html} );
}

sub extract_all_comments {
    my ( $self, @filter ) = @_;
    HTML::Manipulator::extract_all_comments( $self->{html}, @filter );
}

sub insert_before_begin {
    my ( $self, @args ) = @_;
    $self->{html} =
      HTML::Manipulator::insert_before_begin( $self->{html}, @args );
}

sub insert_after_begin {
    my ( $self, @args ) = @_;
    $self->{html} =
      HTML::Manipulator::insert_after_begin( $self->{html}, @args );
}

sub insert_before_end {
    my ( $self, @args ) = @_;
    $self->{html} =
      HTML::Manipulator::insert_before_end( $self->{html}, @args );
}

sub insert_after_end {
    my ( $self, @args ) = @_;
    $self->{html} = HTML::Manipulator::insert_after_end( $self->{html}, @args );
}

sub save_as {
    my ( $self, $filename ) = @_;
    require File::Spec;
    my (@path) = File::Spec->splitdir($filename);
    pop @path;
    my $mkdir = '';
    while (@path) {
        $mkdir = File::Spec->catfile( $mkdir, shift @path );
        mkdir $mkdir unless -e $mkdir;
    }
    require FileHandle;
    my $fh = new FileHandle( $filename, 'w' )
      or croak "failed to open the file $filename for saving HTML: $!";
    print $fh $self->as_string;
    $fh->close;
}

1;
__END__