package Service;

use warnings;
use strict;

sub new {
    my ($class, $data) = @_;
    return bless {
        data => $data,
        service => $class,
    }, $class
}

sub populate {
    my $self = shift;
    $self->{template} =~ s/\[data\]/$self->{data}/i;
}

__PACKAGE__