Business::DPD::Render - render a lable

Business-DPD documentation Contained in the Business-DPD distribution.

Index

Code Index:

NAME

Top

Business::DPD::Render - render a lable

SYNOPSIS

Top

    use Business::DPD::Render::SomeSubclass;
    my $renderer = Business::DPD::Render::SomeSubclass->new( $dpd, {
        outdir => '/path/to/output/dir/',    
        originator => ['some','lines','of text'],
    });
    my $path = $renderer->render( $label );

DESCRIPTION

Top

You should really use a subclass of this module!

METHODS

Top

Public Methods

new

    my $renderer = Business::DPD::Render::SomeSubclass->new( $dpd, {
        outdir => '/path/to/output/dir/',    
        originator => ['some','lines','of text'],
    });

render

Render a label - HAS TO BE IMPLEMENTED IN SUBCLASS!

AUTHOR

Top

RevDev <we {at} revdev.at>

SEE ALSO

Top

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Business-DPD documentation Contained in the Business-DPD distribution. 
package Business::DPD::Render;

use strict;
use warnings;
use 5.010;

use parent qw(Class::Accessor::Fast);
use Carp;

__PACKAGE__->mk_accessors(qw(_dpd outdir originator));



sub new {
    my ($class, $dpd, $opts) = @_;

    my $self = bless $opts, $class;
    $self->_dpd($dpd);
    return $self;
}


sub render {
    croak "'render' has to be implemented in a subclass";
}

1;

__END__