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

Also, why are you using string-eval, when the plain eval works just as well.

Because it didn't work when I tried it. Perhaps your perl works differently?

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

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

    
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;
[download]

I got: Illegal declaration of anonymous subroutine at pck0.pl line 10. What do you get?

Comment on Re^2: Perl templating/macro creating using 'BEGIN'... Select or Download Code

Replies are listed 'Best First'.
Re^3: Perl templating/macro creating using 'BEGIN'... by Corion (Patriarch) on Sep 27, 2010 at 18:06 UTC
Sorry - you don't even need "plain eval". Just assigning the anonymous subroutine to the glob is all that's needed and creates a named subroutine from the anonymous subroutine.	[reply]
Re^4: Perl templating/macro creating using 'BEGIN'... by perl-diddler (Chaplain) on Sep 27, 2010 at 20:25 UTC
Sorry - you don't even need "plain eval". Just assigning the anonymous subroutine to the glob is all that's needed and creates a named subroutine from the anonymous subroutine. What glob? (and what anonymous subroutine?)	[reply]
Re^5: Perl templating/macro creating using 'BEGIN'... by Corion (Patriarch) on Sep 27, 2010 at 20:29 UTC
The code block following that comment: `sub main_package_vars { foreach my $name (@_) { no strict 'refs'; *{ $name } = sub { my $p = shift; $p->{$name} = $_[0] if @_; $p->{$name}; }; } }` [download] This creates accessor-style subroutines with names given in `@_`. You can call it as `main_package_vars( 'Some::Namespace::foo', 'main::bar', 'baz' );` [download]	[reply] [d/l] [select]
Re^6: Perl templating/macro creating using 'BEGIN'... by perl-diddler (Chaplain) on Sep 28, 2010 at 02:36 UTC


The stupid question is the question not asked
	PerlMonks