Supervisor::Utils - Usefull utility routines for the Supervisor

Supervisor documentation Contained in the Supervisor distribution.

Index

Code Index:

NAME

Top

Supervisor::Utils - Usefull utility routines for the Supervisor

SYNOPSIS

Top

 use Supervisor::Class
   version => '0.01',
   base    => 'Supervisor::Base',
   utils   => 'env_store',
 ;

DESCRIPTION

Top

This module provides a set of basic utilities that don't depend on a blessed object to function. These utilites currently only provide functions to manipulate the global $ENV variable.

METHODS

Top

env_store

Remove all items from the $ENV variable and store them in a hash variable.

Example: my $env = env_store();

env_restore

Remove all items from $ENV variable and restore it back to a saved hash variable.

Example: env_restore($env);

env_create

Store all the items from a hash variable into the $ENV varable.

Example: env_create($env);

env_parse

Take a formated string and parse it into a hash variable. The string must have this format: "item=value;;item2=value2";

Example: my $string = "item=value;;item2=value2"; my $env = env_parse($string); env_create($env);

env_dump

Take the items from the current $ENV variable and create a formated string.

Example: my $string = env_dump(); my $env = env_create($string);

EXPORTS

Top

 env_restore() 
 env_create() 
 env_parse() 
 env_dump()
 env_store()

SEE ALSO

Top

 Badger::Utils

 Supervisor
 Supervisor::Base
 Supervisor::Class
 Supervisor::Constants
 Supervisor::Controller
 Supervisor::Log
 Supervisor::Process
 Supervisor::ProcessFactory
 Supervisor::Session
 Supervisor::Utils
 Supervisor::RPC::Server
 Supervisor::RPC::Client

AUTHOR

Top

Kevin L. Esteb, <kesteb@wsipc.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2009 by Kevin L. Esteb

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.

Supervisor documentation Contained in the Supervisor distribution. 
package Supervisor::Utils;

use 5.008;

use strict;
use warnings;

use Badger::Exception;
use base 'Badger::Utils';

our $EXPORT_ANY = 'env_store env_restore env_create env_parse env_dump';

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub env_store {

    my %env;

    while ((my $key, my $value) = each(%ENV)) {

        delete $ENV{$key};
        $env{$key} = $value;

    }

    return \%env;

}

sub env_restore {
    my $env = shift;

    while ((my $key, my $value) = each(%ENV)) {

        delete $ENV{$key};

    }

    while ((my $key, my $value) = each(%{$env})) {

        $ENV{$key} = $value;

    }

}

sub env_create {
    my $env = shift;

    while ((my $key, my $value) = each(%{$env})) {

        $ENV{$key} = $value;

    }

}

sub env_parse {
    my $env = shift;

    my ($key, $value, %env);
    my @envs = split(';;', $env);

    foreach my $y (@envs) {

        ($key, $value) = split('=', $y);
        $env{$key} = $value;

    }

    return \%env;

}

sub env_dump {

    my $env;

    while ((my $key, my $value) = each(%ENV)) {

        $env .= "$key=$value;;";

    }

    # remove the ;; at the end

    chop $env;
    chop $env;

    return $env;

}

1;

__END__