Re^3: Perl templating/macro creating using 'BEGIN'...

[Corion]

The ->import subroutine that is called from a use statement can find out the name of the calling package by using caller.

[perl-diddler]

Yup, this works:

#!/usr/bin/perl  -w
#use strict;
use feature ':5.10';

BEGIN {
    sub package_vars {
        my $pck=caller;
        foreach(@_) {
            eval "sub ${pck}::$_ {
                my \$p = shift;
                \$p->{$_} = \$_[0] if \@_;
                \$p->{$_};
            }"
        }
    }
}


package MyPackage;
    *package_vars=\&main::package_vars;
{

    package_vars( qw(one two three) );

    sub new {
        my $package=shift;
        my $parms=$_[0];
        
        my $this={};

        foreach(%$parms) {
            $this->{$_}=$parms->{$_};
        }

        bless $this, $package;
    }
}

package main;

my $p=new MyPackage({three => 3,});

$p->two(1);

printf "two=%d, three=%d\n",$p->two, $p->three;

Yeah!

Now I understand how this works and can write my own 'macros' as needed rather than trying to find some specialized package to write the macro I want...

Thanks all!