modules and _DATA_

[Eric Walker]

I have some code I want to add a package in the same file. I already
have some _DATA_ in the file. Currently, the code is not seeing the
_DATA_. How can I add a package in the same file then.

Thanks
perlknucklehead

example:
while <DATA>{
do something
}

_DATA_
this
is my
data
section

[James Edward Gray II]

On Jan 23, 2004, at 3:27 PM, Eric Walker wrote:

> I have some code I want to add a package in the same file. I already
> have some _DATA_ in the file. Currently, the code is not seeing the
> _DATA_. How can I add a package in the same file then.

I believe your DATA tag at the end is the problem. It's supposed to be
__DATA__. That's underscore underscore D A T A underscore underscore.

Hope that helps.

James

> example:
> while <DATA>{
> do something
> }
>
> _DATA_
> this
> is my
> data
> section
>

[Eric Walker]

On Fri, 2004-01-23 at 14:34, James Edward Gray II wrote:

On Jan 23, 2004, at 3:27 PM, Eric Walker wrote:

> I have some code I want to add a package in the same file. I already
> have some _DATA_ in the file. Currently, the code is not seeing the
> _DATA_. How can I add a package in the same file then.

I believe your DATA tag at the end is the problem. It's supposed to be
__DATA__. That's underscore underscore D A T A underscore underscore.

Hope that helps.

James

> example:
> while <DATA>{
> do something
> }
>
> _DATA_
> this
> is my
> data
> section
>

sorry I was typing to fast, it is __DATA__ This program was working before but

when I tried to add a package to it, I did some test and its not reading
the DATA anymore. Is there a certain order?

[Drieux]

On Jan 23, 2004, at 1:27 PM, Eric Walker wrote:

> I have some code I want to add a package in the same file. I already
> have some _DATA_ in the file. Currently, the code is not seeing the
> _DATA_. How can I add a package in the same file then.

[..]

since the

__DATA__
vice
_DATA_

has been addressed, my pet favorite way to include a
package inside of a piece of code is

BEGIN {
package Foo::Bar;
....
}

That way it will be compiled early and so you can
place it above the __DATA__ section since it is
not 'data'.


ciao
drieux

---

[Randy W. Sims]

On 1/23/2004 4:36 PM, Eric Walker wrote:

>
> when I tried to add a package to it, I did some test and its not reading
> the DATA anymore. Is there a certain order?

__DATA__ must be in package main;

#!perl

use strict;
use warnings;

while (<DATA>) {
print;
}

package Test;
sub a {}
1;

package main; # DATA must be in main

__DATA__
this
is my
data
section

[Drieux]

On Jan 23, 2004, at 1:36 PM, Eric Walker wrote:
[..]

>
> when I tried to add a package to it, I did some test and its not
> reading
> the DATA anymore. Is there a certain order?

[..]

How did you put the package in?

ciao
drieux

---

#!/usr/bin/perl -w
use strict;

my $foo = new Foo::Bar;

while(<DATA>){
$foo->showMe($_);
}

BEGIN {
package Foo::Bar;
use 5.006;
use strict;
use warnings;
our $VERSION = '0.01';
#---------------------------------
# Our Stock Constructor
# note: <http://www.perlmonks.org/index.pl?node_id=52089>
sub new
{
my $class = shift;
my $self = {};
bless $self, $class;

} # end of our simple new

#---------------------------------
# so that AUTOLOAD finds one here
sub DESTROY {}
#------------------------
#
sub showMe
{
my ($me,$line) = @_;
print $line;

} # end of showMe


1; # so that the 'use Foo::Bar'
# will know we are happy
} # end begin

__DATA__
This line
and then the world.

[Eric Walker]

On Fri, 2004-01-23 at 14:43, Randy W. Sims wrote:

On 1/23/2004 4:36 PM, Eric Walker wrote:

>
> when I tried to add a package to it, I did some test and its not reading
> the DATA anymore. Is there a certain order?

__DATA__ must be in package main;

#!perl

use strict;
use warnings;

while (<DATA>) {
print;
}

package Test;
sub a {}
1;

package main; # DATA must be in main

__DATA__
this
is my
data
section

worked like a charm thanks, now its working but correctly time to get my handy dandy

print statement out...

Thanks..

[Eric Walker]

On Fri, 2004-01-23 at 14:46, drieux wrote:

On Jan 23, 2004, at 1:36 PM, Eric Walker wrote:
[..]

>
> when I tried to add a package to it, I did some test and its not
> reading
> the DATA anymore. Is there a certain order?

[..]

How did you put the package in?

ciao
drieux

---

#!/usr/bin/perl -w
use strict;

my $foo = new Foo::Bar;

while(<DATA>){
$foo->showMe($_);
}

BEGIN {
package Foo::Bar;
use 5.006;
use strict;
use warnings;
our $VERSION = '0.01';
#---------------------------------
# Our Stock Constructor
# note: <http://www.perlmonks.org/index.pl?node_id=52089>
sub new
{
my $class = shift;
my $self = {};
bless $self, $class;

} # end of our simple new

#---------------------------------
# so that AUTOLOAD finds one here
sub DESTROY {}
#------------------------
#
sub showMe
{
my ($me,$line) = @_;
print $line;

} # end of showMe


1; # so that the 'use Foo::Bar'
# will know we are happy
} # end begin

__DATA__
This line
and then the world.


--
To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
For additional commands, e-mail: [email]beginners-help@perl.org[/email]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

while <DATA>{
do something;}

package ONE
package stuff;
1;

package main

__DATA__
data stufff

[Drieux]

On Jan 23, 2004, at 2:47 PM, Eric Walker wrote:
[..]

>
> while <DATA>{
> do something;}
> *********** package ONE
> ************ package stuff;
> ************ 1;
>
> *********** package main
> **********
> ************ __DATA__
> *********** data stufff

yes, one can do the reset back to package main.

part of the reason I opt for the

BEGIN { package .... }

approach is so that I know that the compiler
will deal with the BEGIN { BLOCK } before
worrying about anything else in the code.

That way I know that my objects will be sorted out foist.

As a general rule of thumb, though, once I have played
out an idea then it is going off to it's own

Monkey.pm

file where it is a fully externalized perl module...


ciao
drieux

---