File Coverage

blib/lib/MediaWiki/DumpFile/FastPages.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

#!/usr/bin/env perl

package MediaWiki::DumpFile::FastPages;

our $VERSION = '0.2.0';

use base qw(MediaWiki::DumpFile::Pages);
use strict;
use warnings;
use Data::Dumper;

sub new {
	my ($class, $input) = @_;
	use Carp qw(croak);
	my $self;

	if (! defined($input)) {
		croak "you must provide either a filename or an already open file handle";
	}

	$self = $class->SUPER::new(input => $input, fast_mode => 1);
	bless($self, $class);

	return $self;
}

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

	return $self->_fast_next;
}

1;

__END__