view release on metacpan or  search on metacpan

lib/Class/Accessor/Ref.pm  view on Meta::CPAN

    Foo->mk_accessors(qw/foo bar baz/);
    Foo->mk_refaccessors(qw/foo bar baz/);

=back

=cut

sub import {
	my($class, @fields) = @_;
    return if !@fields;
	my $call_pkg = (caller)[0];
	if ($_DEBUG) { warn "$class: use C::A::R qw(".(join " ", @fields).")\n" }
    {
        # fake C<< packge Foo; use base 'Class::Accessor::Ref' >>
        no strict 'refs';
        push @{"$call_pkg\::ISA"}, $class;
    }
	if (@fields) {
		$call_pkg->mk_accessors(@fields);
		$call_pkg->mk_refaccessors(@fields);
	}