Perlbug::Object::Category - bug category handler

Perlbug documentation Contained in the Perlbug distribution.

Index

Code Index:

NAME

Top

Perlbug::Object::Category - bug category handler

DESCRIPTION

Top

Perlbug bug category class.

For inherited methods, see Perlbug::Object

SYNOPSIS

Top

	use Perlbug::Object::Category;

	my $o_Category = Perlbug::Object::Status->new();

	print $o_Category->selector;

METHODS

Top

new

Create new Category object:

	my $o_Category = Perlbug::Object::Category->new();

AUTHOR

Top

Richard Foley perlbug@rfi.net 2001

Perlbug documentation Contained in the Perlbug distribution. 
# Perlbug bug record handler
# (C) 1999 Richard Foley RFI perlbug@rfi.net
# $Id: Category.pm,v 1.7 2001/09/18 13:37:50 richardf Exp $
#


package Perlbug::Object::Category;

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


use Data::Dumper;
use Perlbug::Base;
use Perlbug::Object;
@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'		=> 'Category',
		'from'		=> [qw(bug)],
		'to'		=> [],
	);


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

	bless($self, $class);
}



# 
1;