File Coverage

blib/lib/Text/Shortcuts.pm

Criterion	Covered	Total	%
statement	32	62	51.6
branch	4	8	50.0
condition	1	3	33.3
subroutine	5	7	71.4
pod	5	5	100.0
total	47	85	55.2

# Made by Steven Rubin [e-mail] (April 2002)

package Text::Shortcuts;
$VERSION = 0.02;
use strict;
use Text::xSV;
sub new {
	my $invocant = shift;
	my $class = ref($invocant) || $invocant;
	my $self = { SF => shift, OF => shift };

	bless($self, $class);
	unless (-s $self->{SF}) {
                my $file = $self->{SF};
		open(SF, ">>$file");
		print SF "shortcut,output\n";
		close(SF);
	}
	return $self;
}
sub set_shortcut {
	my $self = shift;

	my $is_taken=0;
	my $char = shift;
	my $text = shift;
	my $csv = new Text::xSV;
	$csv->open_file($self->{SF});
	$csv->bind_header();
	while ($csv->get_row()) {
		my ($shortcut) = $csv->extract(qw(shortcut));
		if ($char eq $shortcut) {
			warn "Shortcut character already used!";
			$is_taken=1;
			last;
		}
	}
	unless ($is_taken) {
                my $file = $self->{SF};
		open(SF, ">>$file");
		print SF "$char,$text\n";
		close(SF);
	}
}
sub get_shortcuts {
	my $self = shift;

	my $csv = new Text::xSV;
	$csv->open_file($self->{SF});
	$csv->bind_header();
	while ($csv->get_row()) {
		my ($shortcut, $output) = $csv->extract(qw(shortcut output));
	  	print "\[$shortcut\] produces $output\n";
	}
}
sub new_doc {
	my $self = shift;

        my $file = $self->{OF};
	open(OF, ">>$file");
	while (my $line = ) {
		last if $line =~ /^(end)$/;
		my %shortcuts;
		my $csv = new Text::xSV;
		$csv->open_file($self->{SF});
		$csv->bind_header();
		while ($csv->get_row()) {
			my ($shortcut, $output) = $csv->extract(qw(shortcut output));
			$shortcuts{$shortcut} = $output;
		}
		$line =~ s/\[(\w)\]+/$shortcuts{$1}/g;
		print OF $line;
	}
	close(OF);
}
sub get_doc {
	my $self = shift;

        my $file = $self->{OF};
	open(OF, "<$file");
	while () {
		print;
	}
	close(OF);
}
1;

__END__