#$@%#$%!

Ngiler SH3LL 360
: / usr / local / share / perl5 / Alien / Build /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : Interpolate.pm \| Size : 6.38 KB
package Alien::Build::Interpolate; use strict; use warnings; use 5.008004; # ABSTRACT: Advanced interpolation engine for Alien builds our $VERSION = '2.80'; # VERSION sub new { my($class) = @_; my $self = bless { helper => {}, classes => {}, }, $class; $self; } sub add_helper { my $self = shift; my $name = shift; my $code = shift; if(defined $self->{helper}->{$name}) { require Carp; Carp::croak("duplicate implementation for interpolated key $name"); } my $require; if(ref $_[0] eq 'CODE') { $require = shift; } else { $require = []; while(@_) { my $module = shift; my $version = shift; $version \|\|= 0; push @$require, $module => $version; } } $self->{helper}->{$name} = Alien::Build::Helper->new( $name, $code, $require, ); } sub replace_helper { my $self = shift; my($name) = @_; delete $self->{helper}->{$name}; $self->add_helper(@_); } sub has_helper { my($self, $name) = @_; return unless defined $self->{helper}->{$name}; my @require = $self->{helper}->{$name}->require; while(@require) { my $module = shift @require; my $version = shift @require; { my $pm = "$module.pm"; $pm =~ s/::/\//g; require $pm; $module->VERSION($version) if $version; } unless($self->{classes}->{$module}) { if($module->can('alien_helper')) { my $helpers = $module->alien_helper; foreach my $k (keys %$helpers) { $self->{helper}->{$k}->code($helpers->{$k}); } } $self->{classes}->{$module} = 1; } } my $code = $self->{helper}->{$name}->code; return unless defined $code; if(ref($code) ne 'CODE') { my $perl = $code; package Alien::Build::Interpolate::Helper; $code = sub { ## no critic my $value = eval $perl; ## use critic die $@ if $@; $value; }; } $code; } sub execute_helper { my($self, $name) = @_; my $code = $self->has_helper($name); die "no helper defined for $name" unless defined $code; $code->(); } sub _get_prop { my($name, $prop, $orig) = @_; $name =~ s/^\./alien./; if($name =~ /^(.?)\.(.)$/) { my($key,$rest) = ($1,$2); return _get_prop($rest, $prop->{$key}, $orig); } elsif(exists $prop->{$name}) { return $prop->{$name}; } else { require Carp; Carp::croak("No property $orig is defined"); } } sub interpolate { my($self, $string, $build) = @_; my $prop = defined $build && eval { $build->isa('Alien::Build') } ? $build->_command_prop : {}; $string =~ s{(?<!\%)\%\{([a-zA-Z_][a-zA-Z_0-9]+)\}}{$self->execute_helper($1)}eg; $string =~ s{(?<!\%)\%\{([a-zA-Z_\.][a-zA-Z_0-9\.]+)\}}{_get_prop($1,$prop,$1)}eg; $string =~ s/\%(?=\%)//g; $string; } sub requires { my($self, $string) = @_; map { my $helper = $self->{helper}->{$_}; $helper ? $helper->require : (); } $string =~ m{(?<!\%)\%\{([a-zA-Z_][a-zA-Z_0-9]+)\}}g; } sub clone { my($self) = @_; require Storable; my %helper; foreach my $name (keys %{ $self->{helper} }) { $helper{$name} = $self->{helper}->{$name}->clone; } my $new = bless { helper => \%helper, classes => Storable::dclone($self->{classes}), }, ref $self; } package Alien::Build::Helper; sub new { my($class, $name, $code, $require) = @_; bless { name => $name, code => $code, require => $require, }, $class; } sub name { shift->{name} } sub code { my($self, $code) = @_; $self->{code} = $code if $code; $self->{code}; } sub require { my($self) = @_; if(ref $self->{require} eq 'CODE') { $self->{require} = [ $self->{require}->($self) ]; } @{ $self->{require} }; } sub clone { my($self) = @_; my $class = ref $self; $class->new( $self->name, $self->code, [ $self->require ], ); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Alien::Build::Interpolate - Advanced interpolation engine for Alien builds =head1 VERSION version 2.80 =head1 CONSTRUCTOR =head2 new my $intr = Alien::Build::Interpolate->new; =head2 add_helper $intr->add_helper($name => $code); $intr->add_helper($name => $code, %requirements); =head2 replace_helper $intr->replace_helper($name => $code); $intr->replace_helper($name => $code, %requirements); =head2 has_helper my $coderef = $intr->has_helper($name); Used to discover if a helper exists with the given name. Returns the code reference. =head2 execute_helper my $value = $intr->execute_helper($name); This evaluates the given helper and returns the result. =head2 interpolate my $string = $intr->interpolate($template, $build); my $string = $intr->interpolate($template); This takes a template and fills in the appropriate values of any helpers used in the template. [version 2.58] If you pass in an L<Alien::Build> instance as the second argument, you can use properties as well as helpers in the template. Example: my $patch = $intr->template("%{.install.patch}/foo-%{.runtime.version}.patch", $build); =head2 requires my %requires = $intr->requires($template); This returns a hash of modules required in order to execute the given template. The keys are the module names and the values are the versions. Version will be set to C<0> if any version is sufficient. =head2 clone my $intr2 = $intr->clone; This creates a clone of the interpolator. =head1 AUTHOR Author: Graham Ollis E<lt>plicease@cpan.orgE<gt> Contributors: Diab Jerius (DJERIUS) Roy Storey (KIWIROY) Ilya Pavlov David Mertens (run4flat) Mark Nunberg (mordy, mnunberg) Christian Walde (Mithaldu) Brian Wightman (MidLifeXis) Zaki Mughal (zmughal) mohawk (mohawk2, ETJ) Vikas N Kumar (vikasnkumar) Flavio Poletti (polettix) Salvador Fandiño (salva) Gianni Ceccarelli (dakkar) Pavel Shaydo (zwon, trinitum) Kang-min Liu (劉康民, gugod) Nicholas Shipp (nshp) Juan Julián Merelo Guervós (JJ) Joel Berger (JBERGER) Petr Písař (ppisar) Lance Wicks (LANCEW) Ahmad Fatoum (a3f, ATHREEF) José Joaquín Atria (JJATRIA) Duke Leto (LETO) Shoichi Kaji (SKAJI) Shawn Laffan (SLAFFAN) Paul Evans (leonerd, PEVANS) Håkon Hægland (hakonhagland, HAKONH) nick nauwelaerts (INPHOBIA) Florian Weimer =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2011-2022 by Graham Ollis. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut Back

Edit File : Interpolate.pm | Size : 6.38 KB

package Alien::Build::Interpolate;

use strict;
use warnings;
use 5.008004;

# ABSTRACT: Advanced interpolation engine for Alien builds
our $VERSION = '2.80'; # VERSION

sub new
{
  my($class) = @_;
  my $self = bless {
    helper  => {},
    classes => {},
  }, $class;
  $self;
}

sub add_helper
{
  my $self = shift;
  my $name = shift;
  my $code = shift;

if(defined $self->{helper}->{$name})
  {
    require Carp;
    Carp::croak("duplicate implementation for interpolated key $name");
  }

my $require;

if(ref $_[0] eq 'CODE')
  {
    $require = shift;
  }
  else
  {
    $require = [];
    while(@_)
    {
      my $module = shift;
      my $version = shift;
      $version ||= 0;
      push @$require, $module => $version;
    }
  }

$self->{helper}->{$name} = Alien::Build::Helper->new(
    $name,
    $code,
    $require,
  );
}

sub replace_helper
{
  my $self = shift;
  my($name) = @_;
  delete $self->{helper}->{$name};
  $self->add_helper(@_);
}

sub has_helper
{
  my($self, $name) = @_;

return unless defined $self->{helper}->{$name};

my @require = $self->{helper}->{$name}->require;

while(@require)
  {
    my $module  = shift @require;
    my $version = shift @require;

{
      my $pm = "$module.pm";
      $pm =~ s/::/\//g;
      require $pm;
      $module->VERSION($version) if $version;
    }

unless($self->{classes}->{$module})
    {
      if($module->can('alien_helper'))
      {
        my $helpers = $module->alien_helper;
        foreach my $k (keys %$helpers)
        {
          $self->{helper}->{$k}->code($helpers->{$k});
        }
      }
      $self->{classes}->{$module} = 1;
    }
  }

my $code = $self->{helper}->{$name}->code;

return unless defined $code;

if(ref($code) ne 'CODE')
  {
    my $perl = $code;
    package Alien::Build::Interpolate::Helper;
    $code = sub {
      ##  no critic
      my $value = eval $perl;
      ## use critic
      die $@ if $@;
      $value;
    };
  }

$code;
}

sub execute_helper
{
  my($self, $name) = @_;

my $code = $self->has_helper($name);
  die "no helper defined for $name" unless defined $code;

$code->();
}

sub _get_prop
{
  my($name, $prop, $orig) = @_;

$name =~ s/^\./alien./;

if($name =~ /^(.*?)\.(.*)$/)
  {
    my($key,$rest) = ($1,$2);
    return _get_prop($rest, $prop->{$key}, $orig);
  }
  elsif(exists $prop->{$name})
  {
    return $prop->{$name};
  }
  else
  {
    require Carp;
    Carp::croak("No property $orig is defined");
  }
}

sub interpolate
{
  my($self, $string, $build) = @_;

my $prop = defined $build && eval { $build->isa('Alien::Build') }
  ? $build->_command_prop
  : {};

$string =~ s{(?<!\%)\%\{([a-zA-Z_][a-zA-Z_0-9]+)\}}{$self->execute_helper($1)}eg;
  $string =~ s{(?<!\%)\%\{([a-zA-Z_\.][a-zA-Z_0-9\.]+)\}}{_get_prop($1,$prop,$1)}eg;
  $string =~ s/\%(?=\%)//g;
  $string;
}

sub requires
{
  my($self, $string) = @_;
  map {
    my $helper = $self->{helper}->{$_};
    $helper ? $helper->require : ();
  } $string =~ m{(?<!\%)\%\{([a-zA-Z_][a-zA-Z_0-9]+)\}}g;
}

sub clone
{
  my($self) = @_;

require Storable;

my %helper;
  foreach my $name (keys %{ $self->{helper} })
  {
    $helper{$name} = $self->{helper}->{$name}->clone;
  }

my $new = bless {
    helper => \%helper,
    classes => Storable::dclone($self->{classes}),
  }, ref $self;
}

package Alien::Build::Helper;

sub new
{
  my($class, $name, $code, $require) = @_;
  bless {
    name    => $name,
    code    => $code,
    require => $require,
  }, $class;
}

sub name { shift->{name} }

sub code
{
  my($self, $code) = @_;
  $self->{code} = $code if $code;
  $self->{code};
}

sub require
{
  my($self) = @_;
  if(ref $self->{require} eq 'CODE')
  {
    $self->{require} = [ $self->{require}->($self) ];
  }
  @{ $self->{require} };
}

sub clone
{
  my($self) = @_;
  my $class = ref $self;
  $class->new(
    $self->name,
    $self->code,
    [ $self->require ],
  );
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Alien::Build::Interpolate - Advanced interpolation engine for Alien builds

=head1 VERSION

version 2.80

=head1 CONSTRUCTOR

=head2 new

my $intr = Alien::Build::Interpolate->new;

=head2 add_helper

$intr->add_helper($name => $code);
 $intr->add_helper($name => $code, %requirements);

=head2 replace_helper

$intr->replace_helper($name => $code);
 $intr->replace_helper($name => $code, %requirements);

=head2 has_helper

my $coderef = $intr->has_helper($name);

Used to discover if a helper exists with the given name.
Returns the code reference.

=head2 execute_helper

my $value = $intr->execute_helper($name);

This evaluates the given helper and returns the result.

=head2 interpolate

my $string = $intr->interpolate($template, $build);
 my $string = $intr->interpolate($template);

This takes a template and fills in the appropriate values of any helpers used
in the template.

[version 2.58]

If you pass in an L<Alien::Build> instance as the second argument, you can use
properties as well as helpers in the template.  Example:

my $patch = $intr->template("%{.install.patch}/foo-%{.runtime.version}.patch", $build);

=head2 requires

my %requires = $intr->requires($template);

This returns a hash of modules required in order to execute the given template.
The keys are the module names and the values are the versions.  Version will be
set to C<0> if any version is sufficient.

=head2 clone

my $intr2 = $intr->clone;

This creates a clone of the interpolator.

=head1 AUTHOR

Author: Graham Ollis E<lt>plicease@cpan.orgE<gt>

Contributors:

Diab Jerius (DJERIUS)

Roy Storey (KIWIROY)

Ilya Pavlov

David Mertens (run4flat)

Mark Nunberg (mordy, mnunberg)

Christian Walde (Mithaldu)

Brian Wightman (MidLifeXis)

Zaki Mughal (zmughal)

mohawk (mohawk2, ETJ)

Vikas N Kumar (vikasnkumar)

Flavio Poletti (polettix)

Salvador Fandiño (salva)

Gianni Ceccarelli (dakkar)

Pavel Shaydo (zwon, trinitum)

Kang-min Liu (劉康民, gugod)

Nicholas Shipp (nshp)

Juan Julián Merelo Guervós (JJ)

Joel Berger (JBERGER)

Petr Písař (ppisar)

Lance Wicks (LANCEW)

Ahmad Fatoum (a3f, ATHREEF)

José Joaquín Atria (JJATRIA)

Duke Leto (LETO)

Shoichi Kaji (SKAJI)

Shawn Laffan (SLAFFAN)

Paul Evans (leonerd, PEVANS)

Håkon Hægland (hakonhagland, HAKONH)

nick nauwelaerts (INPHOBIA)

Florian Weimer

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

Back