dceb8881bb
Seems to have a bug when using data::dumper, may be deeper, so check it out FossilOrigin-Name: 2ccee21d230f55f38d2f53b0e8bbff2df711d5db45e1a7451bb10850935baff8
35 lines
548 B
Perl
35 lines
548 B
Perl
package emojis;
|
|
use strict;
|
|
use warnings;
|
|
use Exporter 'import';
|
|
|
|
our @EXPORT = qw( generate_emoji );
|
|
|
|
use template_helpers 'to_template';
|
|
|
|
sub generate_emoji
|
|
{
|
|
my ($ssn, $data, $status_id, $emoji) = @_;
|
|
|
|
my %vars = (
|
|
prefix => '',
|
|
ssn => $ssn,
|
|
status_id => $status_id,
|
|
emoji => $emoji
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'emoji.tt'});
|
|
}
|
|
|
|
sub emoji_picker
|
|
{
|
|
my ($data, $emojis) = @_;
|
|
|
|
my %vars = (
|
|
e => $emojis
|
|
);
|
|
|
|
to_template(\%vars, \$data->{'emoji_picker.tt'});
|
|
}
|
|
|
|
1;
|