summaryrefslogtreecommitdiff
path: root/samwise/PerlSam/Parser.pm
diff options
context:
space:
mode:
Diffstat (limited to 'samwise/PerlSam/Parser.pm')
-rw-r--r--samwise/PerlSam/Parser.pm57
1 files changed, 0 insertions, 57 deletions
diff --git a/samwise/PerlSam/Parser.pm b/samwise/PerlSam/Parser.pm
deleted file mode 100644
index 08ce79a1f91..00000000000
--- a/samwise/PerlSam/Parser.pm
+++ /dev/null
@@ -1,57 +0,0 @@
-# $Id$
-
-package PerlSam::Parser;
-
-use PerlSam::Parser::Simple;
-use strict;
-
-###############################################################################
-# Global methods
-
-# Return the default parser
-sub GetDefault ()
-{
- return 'simple';
-}
-
-###############################################################################
-# Constructor
-
-sub new ($)
-{
- my $proto = shift;
- my $class = ref ($proto) || $proto;
- my $self = {};
-
- my $name = shift;
-
- if ($name eq 'simple') {
- $self->{PARSER} = new PerlSam::Parser::Simple;
- }
- else {
- print STDERR "Error: Unrecognized Parser <$name>\n";
- exit 1;
- }
-
- bless ($self, $class);
- return $self;
-}
-
-###############################################################################
-# Methods
-
-sub Parse ($\%)
-{
- my $self = shift;
-
- return $self->{PARSER}->Parse (@_);
-}
-
-sub ParseLibraryFile ($\%)
-{
- my $self = shift;
-
- return $self->{PARSER}->ParseLibraryFile (@_);
-}
-
-1; \ No newline at end of file