NAME

Win32::GuiTest::Examples - collection of the scripts from eg

Synopsis

This module was autogenerated from the files in the eg directory of the distribution. For detailed (cough) documenataion see Win32::GuiTest. To run the examples either copy-paste them from here or download and unpack the distribution and take the files from the eg directory.

Examples

END

open(MAN, "<MANIFEST"); my @manifest = <MAN>; close(MAN);

foreach my $file (@manifest) { chomp $file; next if $file !~ m{eg/(.*)\.pl}; next if $1 eq 'make_eg';

        print $out "\n=head2 $file\n\n";
        open my $fh, "<", $file;
        my @lines = <$fh>;
        for ( @lines) {
                next if /^#\s*\$Id/;
                print $out "    $_";
        }
}

print $out <<END;