view release on metacpan or  search on metacpan

lib/AutoCode/Unimplemented.pm  view on Meta::CPAN

package AutoCode::Unimplemented;
use strict;
use AutoCode::Root;
our @ISA=qw(AutoCode::Root);

sub import {
    my ($caller, $methods, $pkg)=@_;
    my $class = ref($caller)||$caller;
    $pkg||=caller;
    no strict 'refs';
    foreach(@$methods){
        *{"$pkg\::$_"}= sub {shift->not_implemented;};
    }
}

1;
__END__

=head1 NAME

AutoCode::Unimplemented - stuff the unimplemented methods in Interface module

=head1 SYNOPSIS

  package InterfaceModule;
  use AutoCode::Root;
  our @ISA=qw(AutoCode::Root);
  use AutoCode::Unimplemented([method1 method2]);

=head1 DESCRIPTION

This module is to add unimplmented methods into an interface module, which 
inherits AutoCode::Root directly or indirectly.

=head1 HISTORY

=cut

=cut