File Coverage

inc/My/Module/SetDelegate.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	4	50.0
total	26	29	89.6

package My::Module::SetDelegate;

use strict;
use warnings;

use Astro::Coord::ECI::TLE;
our @ISA = qw{ Astro::Coord::ECI::TLE };

sub new {
    my ($class, @args) = @_;
    $class = ref $class if ref $class;
    my $self = $class->SUPER::new ();
    $self->set (model => 'null', @args);
    return $self;
}

*_nodelegate_nodelegate = \&nodelegate;
sub nodelegate {return $_[0]}

sub delegate {return $_[0]}

sub rebless {}	# No-op rebless() to defeat class changes.

1;