1use strict;
2
3package HTML::FormFu::Literal;
4# ABSTRACT: a FormFu literal
5$HTML::FormFu::Literal::VERSION = '2.07';
6use warnings;
7
8use HTML::FormFu::Constants qw( $EMPTY_STR );
9
10use overload
11    '""'     => sub { return join $EMPTY_STR, @{ $_[0] } },
12    fallback => 1;
13
14sub new {
15    my $class = shift;
16
17    return bless \@_, $class;
18}
19
20sub push {
21    my ( $self, @args ) = @_;
22
23    CORE::push( @{ $_[0] }, @args );
24}
25
26sub unshift {
27    my ( $self, @args ) = @_;
28
29    CORE::unshift( @{ $_[0] }, @args );
30}
31
321;
33
34__END__
35
36=pod
37
38=encoding UTF-8
39
40=head1 NAME
41
42HTML::FormFu::Literal - a FormFu literal
43
44=head1 VERSION
45
46version 2.07
47
48=head1 AUTHOR
49
50Carl Franks <cpan@fireartist.com>
51
52=head1 COPYRIGHT AND LICENSE
53
54This software is copyright (c) 2018 by Carl Franks.
55
56This is free software; you can redistribute it and/or modify it under
57the same terms as the Perl 5 programming language system itself.
58
59=cut
60