Re: include file "inline"

[kutsu]

Since everyone else has meantioned how to inline perl code, and seeing the use SOME::Module; and OOish construct, I'm assuming you might be asking how to create an OO module. If that's the case your half way there:

The calling perl file (ie. foo.pl)

#!/usr/bin/perl
use warnings;
use strict;

@data = qw(gotta have guts to code perl);

use Guts;
my $Gs = Guts->new;
$Gs->gutsy(@data);

The module (ie. Guts.pm):

pakage Guts;

sub new 
{
  my $class = shift;
  my $self = {};

  $self = bless($self, $class);
  return $self;
}

sub gutsy
{
  $self = shift;
  print join(" ", @_);
}

1;

The key points being look at perltoot, bless, and perlobj