#!/usr/bin/env perl
#=--#-============================= the HOUR is OURS
    #                             - this file best read whilst downing splendour
#--=#-============================- =------------------------------------------=
package our_package_contents;                          use strict; use warnings;

=head1 NAME

=head2 import

=cut
sub import {
   my $this_pack  = caller() || return;
      $this_pack .= '::';

   {  no strict 'refs';

      # Create a type-glob to the package's symbol-table [i.e., its "stash"]
      local *our_package_contents::this_stash = *$this_pack;
            %our_package_contents::this_stash =
            %our_package_contents::this_stash;
   }
}

  1
__END__

=head1 COPYRIGHT AND LICENSE

 The information below applies to everything in this distribution,
 except where noted.
 
 Copyright 1980-2005 by B.W.Curry.
 
   http://bcurry.gomen.org
 
 This file is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public License
 as published by the Free Software Foundation; either version 2
 of the License, or (at your option) any later version.

 This file is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this file; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

=head1 SEE ALSO

 links -g bcurry.gomen.org &

=head1 AUTHOR

 bcurry at freeshell dot org
 
=cut