| 1 |
## --------------------------------------------------------------------------- |
| 2 |
## $Id: shortcuts.pm,v 1.3 2003/01/22 17:58:48 root Exp $ |
| 3 |
## --------------------------------------------------------------------------- |
| 4 |
## $Log: shortcuts.pm,v $ |
| 5 |
## Revision 1.3 2003/01/22 17:58:48 root |
| 6 |
## sub get_chomped |
| 7 |
## |
| 8 |
## Revision 1.2 2003/01/20 21:19:27 joko |
| 9 |
## + updated 'sub now': knows about option 'fs' now |
| 10 |
## |
| 11 |
## Revision 1.1 2003/01/19 02:08:08 joko |
| 12 |
## + initial check-in |
| 13 |
## |
| 14 |
## --------------------------------------------------------------------------- |
| 15 |
|
| 16 |
|
| 17 |
package org::netfrag::shortcuts; |
| 18 |
|
| 19 |
use strict; |
| 20 |
use warnings; |
| 21 |
|
| 22 |
require Exporter; |
| 23 |
our @ISA = qw( shortcuts Exporter ); |
| 24 |
our @EXPORT_OK = qw( |
| 25 |
now today |
| 26 |
run_cmd run_cmds |
| 27 |
get_chomped |
| 28 |
); |
| 29 |
|
| 30 |
1; |