PC Welt 2005 March/PCWELT_3_2005.ISO/pcwsoft/framework-2.2.exe/demo4.pl

Perl Script | 2003-11-07 | 198 b | 10 lines

use Descriptions;

my $capacity : Name(capacity)
         : Purpose(to store max storage capacity for files)
         : Unit(Gb);

package Other;

sub foo : Purpose(to foo all data before barring it) { }