Perlbug::Object::Flag - Flag class

	use Perlbug::Object::Flag;

	my $o_flag = Perlbug::Object::Flag->new();

	print $o_flag->read('group')->format('a');

# Perlbug bug record handler
# (C) 1999 Richard Foley RFI perlbug@rfi.net
# $Id: Flag.pm,v 1.14 2001/10/11 13:11:56 richardf Exp $
#

package Perlbug::Object::Flag;
$VERSION = do { my @r = (q$Revision: 1.14 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 

use File::Spec; 
use lib (File::Spec->updir);
use Perlbug::Base;
use Perlbug::Object;
use Data::Dumper;
@ISA = qw(Perlbug::Object); 

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

	my $self = Perlbug::Object->new( $o_base, 
		'name'		=> 'Flag',
		'float'		=> [],
		'from'		=> [],
		'to'		=> [],
	);


	# warn "rjsf Flag: ".Dumper($self);

	bless($self, $class);
}

# 
1;