Perlbug::Object::Address - address handler

	use Perlbug::Object::Address;

	my $o_addr = Perlbug::Object::Address->new();

	print $o_addr->selector;

# Perlbug bug record handler
# (C) 1999 Richard Foley RFI perlbug@rfi.net 
# $Id: Address.pm,v 1.13 2001/08/20 18:57:30 mstevens Exp $
#

package Perlbug::Object::Address;

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

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'		=> 'Address',
		'from'		=> [qw(bug group)],
		'to'		=> [],
	);

	bless($self, $class);
}

sub FORMAT_a { # default where format or method missing!
	my $self = shift;
	my $x    = shift; # 
	my $obj_key_oid = ucfirst($self->attr('key')).' ID';
	$obj_key_oid .= (' ' x (12 - length($obj_key_oid)));
	my $pri  = $self->attr('primary_key');
	my @args = ( 
		$$x{$pri}, $$x{'bug_count'}, $$x{'created'}, $$x{'name'},
	);
	my $top = qq|
$obj_key_oid  Bugids  Created            |;
	my $format = qq|
@<<<<<<<<<<<  @<<<<<  @<<<<<<<<<<<<<<<<  
@*
|;
	return ($top, $format, @args);
}

sub FORMAT_A { # default where format or method missing!
	my $self = shift;
	my $x    = shift; # 
	my $obj_key_oid = ucfirst($self->attr('key')).' ID';
	$obj_key_oid .= (' ' x (12 - length($obj_key_oid)));
	my $pri  = $self->attr('primary_key');
	my @args = ( 
		$$x{$pri}, $$x{'bug_count'}, $$x{'created'}, $$x{'name'},
		$$x{'bug_ids'},
	);
	my $top = qq|
$obj_key_oid  Bugids  Created            |;
	my $format = qq|
@<<<<<<<<<<<  @<<<<<  @<<<<<<<<<<<<<<<<  
@*
@*
|;
	return ($top, $format, @args);
}

# 
1;