package Iotta::Input::RCS;
use strict;
require Iotta::Elem;
our @ISA = ("Iotta::Elem");

sub run {
	my $self = shift;
	my $meta = shift;
	my $data;
	my $file = $$meta{input};
	$$meta{input} =~ s/,v$//;
	print STDERR "  loading...\n";
	open (FILE, "co -p $file 2> /dev/null |") || return 1;
	while (<FILE>) {
		$data .= $_;
	}
	close FILE;
	$self->next->run ($meta, $data) if ($self->next);
	return 0;
}

#sub initialize {
#	my $self = shift;
#	$self->SUPER::initialize (@_);
#}

1;