It is a total hack, of course, but for the common case something like the
following appears to do the job. Caching and error handling (and much more)
is left for the reader, but it should be easy enough to implement the bare
bones in the standard Mason distribution (hint, hint)
<%init>
my $compile = CYBAEA::Mason::Compilation->new( # substitute your project
name
interp => $m->interp(),
path => $m->req()->path(), # probably not quite right…?
source_file => '/dev/null', # Trick - will need adjustment on msdos and
others
);
## Assuming you have a /footer.mi component, of course…:
$compile->{source} = '<p>Hello world <% 1+1 %>.</p><& /footer.mi &>';
my $source = $compile->compile();
## If you understand how Mason works, you can probably create the whole
## package, but I don’t and I coudn’t figure it out. Just grab the main
method.
$source =~ s[\A .* method \s+ main \s* { (.*?) return \s* \; \s* }][$1]xms;
</%init>
<h1>Hi</h1>
% eval($source); # Nasty, nasty hack.
Improvements would be most welcome!
Allan
On 8 January 2013 17:27, Jonathan Swartz <swa...@pobox.com> wrote:
> I haven't thought about how to do on-the-fly component compilation in
> Mason 2 yet. It made the code a lot cleaner not to have to plan for it, and
> I wasn't sure if anyone would need it. :)
>
> It should be possible since Class::MOP and Moose have utilities for
> creating classes on the fly. Let me know if you come up with a good
> solution.
>
> Jon
>
> On Jan 7, 2013, at 10:47 PM, Allan Engelhardt <all...@cybaea.com> wrote:
>
> Thanks Rolf, but I am trying to use Mason2. Anyone know of a solution
> there?
>
> Allan
>
> On 7 January 2013 23:23, Rolf Schaufelberger <r...@plusw.de> wrote:
>
>> Yes,
>>
>> Am 07.01.2013 um 22:55 schrieb Allan Engelhardt <all...@cybaea.com>:
>>
>> Suppose I have a string (from a database or whatever) that I want to
>> compile, run, and insert into the current component - is that possible?
>> Something like (not tested):
>>
>> % # test.mc
>> <%init>
>> my $s = q{<p>I know 1+1=<% 1+1 %>.</p>}; # From external source
>> </%init>
>> <p>I know many facts</p>
>> <% $m->magic( $s ) %>
>>
>> for some function magic( ... ) which should probably be called
>> scomp_from_string or somesuch....
>>
>>
>> for HTML::Mason
>> see the docs for HTML::Mason::Interp::make_component
>>
>> # Make an anonymous component
>> my $anon_comp =
>> eval { $interp->make_component
>> ( comp_source => '<%perl>my $name = "World";</%perl>Hello <%
>> $name %>!' ) };
>> die $@ if $@;
>>
>> $m->comp($anon_comp);
>>
>>
>>
>> Allan
>>
>>
>> Mit freundlichen Grüßen
>> Rolf Schaufelberger
>>
>
>
> ------------------------------------------------------------------------------
> Master SQL Server Development, Administration, T-SQL, SSAS, SSIS, SSRS
> and more. Get SQL Server skills now (including 2012) with LearnDevNow -
> 200+ hours of step-by-step video tutorials by Microsoft MVPs and experts.
> SALE $99.99 this month only - learn more at:
>
> http://p.sf.net/sfu/learnmore_122512_______________________________________________
> Mason-users mailing list
> Mason-users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/mason-users
>
>
>
------------------------------------------------------------------------------
Master SQL Server Development, Administration, T-SQL, SSAS, SSIS, SSRS
and more. Get SQL Server skills now (including 2012) with LearnDevNow -
200+ hours of step-by-step video tutorials by Microsoft MVPs and experts.
SALE $99.99 this month only - learn more at:
http://p.sf.net/sfu/learnmore_122512
_______________________________________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-users
