File Coverage

blib/lib/MediaWiki/DumpFile.pm

Criterion	Covered	Total	%
statement	20	24	83.3
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod	3	4	75.0
total	32	39	82.0

package MediaWiki::DumpFile;

our $VERSION = '0.2.2';

use warnings;
use strict;
use Carp qw(croak);

sub new {
	my ($class, %files) = @_;
	my $self = {};

	bless($self, $class);

	return $self;
}

sub sql {
	if (! defined($_[1])) {
		croak "must specify a filename or open filehandle";
	}

	require MediaWiki::DumpFile::SQL;

	return MediaWiki::DumpFile::SQL->new($_[1]);
}

sub pages {
	my ($class, @args) = @_;
	require MediaWiki::DumpFile::Pages;

	return MediaWiki::DumpFile::Pages->new(@args);
}

sub fastpages {
	if (! defined($_[1])) {
		croak "must specify a filename or open filehandle";
	}

	require MediaWiki::DumpFile::FastPages;

	return MediaWiki::DumpFile::FastPages->new($_[1]);
}

1;

__END__