blob: 2a83334f8b2de3df456c70518afd14beae1ef006 (
plain)
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
|
=head1 NAME
Tk::Submethods - add aliases for tk sub-commands
=for pm Tk/Submethods.pm
=for category Implementation
=head1 SYNOPSIS
use Tk::Submethods ( 'command1' => [qw(sub1 sub2 sub3)],
'command2' => [qw(sub1 sub2 sub3)]);
=head1 DESCRIPTION
Creates C<-E<gt>commandSub(...)> as an alias for C<-E<gt>command('sub',...)>
e.g. C<-E<gt>grabRelease> for C<-E<gt>grab('release')>.
For each command/subcommand pair this creates a closure with command
and subcommand as bound lexical variables and assigns a reference to this
to a 'glob' in the callers package.
Someday the sub-commands may be created directly in the C code.
=cut
|