package Greenstone::Package::_rpm; use strict; use warnings; use utf8; use parent 'Greenstone::Package'; sub replacement_array { my $self = shift; my $array = shift; return join ", ", @{$array}; } 1;