Perlbug::Object::Child - Bug class

Perlbug documentation Contained in the Perlbug distribution.

Index

Code Index:

NAME

Top

Perlbug::Object::Child - Bug class

DESCRIPTION

Top

Perlbug bug parent class.

For inherited methods, see Perlbug::Object

SYNOPSIS

Top

	use Perlbug::Object::Child;

	print Perlbug::Object::Child->new()->read('19990127.003')->format('a');

METHODS

Top

new

Create new Child object:

	my $o_pa = Perlbug::Object::Child->new();

Object references are returned with most methods, so you can 'chain' the calls:

	print $o_pa ->read('198700502.007')->format('h');

AUTHOR

Top

Richard Foley perlbug@rfi.net 2000

Perlbug documentation Contained in the Perlbug distribution. 
# Perlbug bug parent handler
# (C) 1999 Richard Foley RFI perlbug@rfi.net
# $Id: Child.pm,v 1.11 2001/08/20 18:57:31 mstevens Exp $
#
#


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

my %fmt = ();


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



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

	my $self = Perlbug::Object::Bug->new( $o_base, 
		'hint'			=> 'Child',
	);
	bless($self, $class);
	# $self->attr({'Name', 'Child'});

	return $self;
}


# 
1;