File Coverage

blib/lib/Scripting.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

# $Source: /Users/clajac/cvsroot//Scripting/Scripting.pm,v $
# $Author: clajac $
# $Date: 2003/07/21 10:10:05 $
# $Revision: 1.11 $

package Scripting;

require 5.005_62;

use Scripting::Loader;
use Scripting::Security;

use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Scripting ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = "0.99";

sub dump_targets {
  Scripting::Expose->dump_targets;
}

sub init {
  my $pkg = shift;
  my %args = @_;

  die "Missing argument 'with'\n" unless(exists $args{with});

  if(exists $args{signfile}) {
    Scripting::Security->open($args{signfile});
  }

  Scripting::Loader->allow($args{allow});
  Scripting::Loader->load($args{with});
}

sub invoke {
  shift if $_[0] eq 'Scripting';
  Scripting::Event->invoke(@_);
}

# Preloaded methods go here.

1;
__END__