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