Your script can be like this:
#!/usr/bin/perl -w
use strict;
#we're in the main package...
my $obj = My::Class->new("blah");
My::SecondClass::foo(@bar);
# here are the classes' codes...
package My::Class;
sub new {
#...
}
# blah...
package My::SecondClass;
sub foo {
# blah
}
__END__;
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Behalf
> Of EXTERN Chakirov Timour (TZ CIS; DS/ESQ3)
> Sent: Thursday, March 20, 2003 4:22 PM
> To: [EMAIL PROTECTED]
> Subject: [Perl-unix-users] How do I Join two or more perl modules
> in one file?
>
>
> Hello,
>
> I have a perl script which is using a couple of in-house modules.
> Is any easy way to join these files in big one? In this case I
> have to send
> and use only one file on a client computer.
>
> TIA,
> Tim
>
> ----------------------------------------------------------------
> (EXTERN) CHAKIROV, Timour (TZ CIS / DS ESQ3)
>
> Robert Bosch GmbH Tel: +49 (0) 711-811- 3 00 48
> Postfach 30 02 20 Fax: +49 (0) 711-811- 3 18 00
> D-70442 Stuttgart e-mail: [EMAIL PROTECTED]
> Besucher: Wernerstr.51, Fe533/3, D-70469 Stuttgart-Feuerbach
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
