view release on metacpan or  search on metacpan

inc/My/Module/SetDelegate.pm  view on Meta::CPAN

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;