Panotools::Makefile::Comment - Assemble Makefile Comment lines

Panotools-Script documentation Contained in the Panotools-Script distribution.

Index

Code Index:

NAME

Top

Panotools::Makefile::Comment - Assemble Makefile Comment lines

SYNOPSIS

Top

Simple interface for generating Makefile syntax

DESCRIPTION

Top

Writing Makefiles directly from perl scripts with print and "\t" etc... is prone to error, this library provides a simple perl interface for assembling Makefiles.

USAGE

Top

  my $note = new Panotools::Makefile::Comment;

..or add text at the same time:

  my $note = new Panotools::Makefile::Comment ('Warning, may not eat your cat!');

Add lines to the comment:

  $note->Lines ('..but it might...', '...sometimes');

Construct a text fragment suitable for use in a Makefile like so:

  $text = $note->Assemble;
Panotools-Script documentation Contained in the Panotools-Script distribution. 
package Panotools::Makefile::Comment;


use strict;
use warnings;


sub new
{
    my $class = shift;
    $class = ref $class || $class;
    my $self = bless [@_], $class;
    return $self;
}


sub Name
{
    my $self = shift;
    push @{$self}, @_;
}


sub Assemble
{
    my $self = shift;
    return '' unless scalar @{$self};

    my $text = "\n# ";
    $text .= join "\n# ", @{$self};
    return $text . "\n";
}

1;