From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SKNPP / Package-Subroutine-v0.22.4 / lib / Package / Subroutine / Sugar.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
—
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

              
  package Package::Subroutine::Sugar
# **********************************
; use strict; use warnings
# ************************
; our $VERSION='0.02'
# *******************
; sub import
    { eval <<'__PERL__'
; package from
# ************
; our $VERSION='0.08'
; no warnings 'redefine'
; use Package::Subroutine 'Package::Subroutine'
    => qw/import export findsubs mixin version/
__PERL__
    }
; sub unimport
    { delete $::{'from::'}
    }
; 1
__END__
=head1 NAME
Package::Subroutine::Sugar
=head1 SYNOPSIS
    use Package::Subroutine::Sugar;
    package Ican::not::program;
    import from 'Animal::Words' => qw/moo mae meow/
=head2 DESCRIPTION
This module creates the namespace C<from>. The following and methods are
imported from L<Package::Subroutine>:
=over 4
=item import
=item export
=item findsubs
=item mixin
=item version
=back
As the name suggests it provides some (syntactic) sugar.
Please have fun with it but please think twice before using it seriously.
=head1 AUTHOR
Sebastian Knapp, <rock@ccls-online.de>
=head1 BUGS
=head2 unimport
   ; no from # this deletes from package
Unfortunatly I'm not sure if this is the right way to do it (how could this be done better?).
Please report more bugs or feature requests to
C<bug-package-subroutine@rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
=head1 COPYRIGHT & LICENSE
Copyleft 2007-2008 Sebastian Knapp
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut