package SVC::DnsEntity::IPv6;

use strict;
use warnings;
use Carp;

my $value;

sub new {
    my $self = shift;
    bless \( my $scalar ), ref $self || $self;
}

sub value { $value }

package SVC::DnsEntity::IPv4;

use strict;
use warnings;
use Carp;

my $value;

sub new {
    my $self = shift;
    my $_value = shift || croak "No IP address?!";
    
    croak "Invalid IP address" unless $_value =~ /(:?\d{}1,3){4}/;
    map {
        croak "Octet out of bounds" unless $_ >= 0 && $_ <= 255
    } split /\./, $_value;
    
    bless \$_value, ref $self || $self;
}

sub value {
    my $self = shift;
        $$self;
}

package SVC::DnsEntity;

use strict;
use warnings;
use Carp;

use Net::Ping;
use Fatal qw/Net::Ping::new Net::Ping::ping/;

use SVC::CmdSession;

use vars q/%attribs/;

BEGIN {
    no strict q/refs/;
    map {
        my $_sub = $_;
        eval { *$_sub = sub { $attribs{$_sub} } };
        
        croak "Failed to create $_sub - $@" if $@;
    } qw/hostname ip_address/;
}

%attribs = (
    hostname    => undef,
    type        => q/IPv4/,
    ip_address    => undef,
    pinger        => undef,
);

my $DEFAULT_TIMEOUT = 1;

sub new {
    my $self = shift;
    
    my $args = { ( %attribs ), @_ };
    
    croak "No IP version type - expected IPv[46]" unless
        $args->{type}->can(qw/new/);

    my $ver_class = __PACKAGE__ . "\:\:$args->{type}";
    warn "ver_class: $ver_class";
    $args->{ip_address} = $ver_class->new($args->{ip_address}) if
        $args->{ip_address};

    $attribs{pinger} = Net::Ping->new();

    bless \( my %data = %attribs ), ref $self || $self;
}
[download]

"my" variable $value masks earlier declaration in same scope at SVC/Dn
+sEntity.pm line 28.
Subroutine new redefined at SVC/DnsEntity.pm line 76.
Can't bless non-reference value at SVC/CmdSession.pm line 17.
[download]