Quine - extension for creating quines

Quine documentation Contained in the Quine distribution.

Index

Code Index:

NAME

Top

Quine - extension for creating quines

SYNOPSIS

Top

  #!/usr/bin/perl -w

  use Quine;

  # rest of code here

DESCRIPTION

Top

This module simply prints the content of the program using the module. This type of program is called a "quine".

AUTHOR

Top

  Jeff "japhy" Pinyan
  CPAN ID: PINYAN
  japhy@pobox.com
  http://www.pobox.com/~japhy/
Quine documentation Contained in the Quine distribution. 
package Quine;

$VERSION = '1.01';

sub import {
  my $file = (caller)[1];
  local ($/, *FILE);
  open FILE, $file;
  print STDOUT <FILE>;
  close FILE;
  exit;
}


1;

__END__