Perlbug::Object::Version - version handler

	use Perlbug::Object::Version;

	my $o_version = Perlbug::Object::Version->new();

	print $o_version ->read('3')->format('a');

# Perlbug bug record handler
# (C) 1999 Richard Foley RFI perlbug@rfi.net
# $Id: Version.pm,v 1.14 2002/01/11 13:51:05 richardf Exp $
#

package Perlbug::Object::Version;
use strict;
use vars qw($VERSION @ISA);
$VERSION = do { my @r = (q$Revision: 1.14 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 
$|=1;

use Data::Dumper;
use Perlbug::Base;
use Perlbug::Object;
@ISA = qw(Perlbug::Object); 

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto; 
	my $o_base = (ref($_[0])) ? shift : Perlbug::Base->new;

	my $self = Perlbug::Object->new( $o_base, 
		'name'			=> 'Version',
		'from'			=> [qw(bug patch test)],
		'match_name'	=> '([\d+\.]+\d+)',
		'prejudicial'	=> 1,
		'to'			=> [],
		@_,
	);

	bless($self, $class);
}

# 
1;