package Ledger::Comment; BEGIN { $Ledger::Comment::VERSION = '0.03'; } use 5.010; use Log::Any '$log'; use Moo; # VERSION has linerefs => (is => 'rw'); has parent => (is => 'rw'); sub BUILD { my ($self, $args) = @_; } sub as_string { my ($self) = @_; join "", map { $$_ } @{$self->linerefs}; } 1; # ABSTRACT: Represent comment or other non-parsable lines =pod =head1 NAME Ledger::Comment - Represent comment or other non-parsable lines =head1 VERSION version 0.03 =head1 SYNOPSIS =head1 DESCRIPTION =head1 ATTRIBUTES =head2 parent => OBJ Pointer to L<Ledger::Journal> or L<Ledger::Transaction> object. =head2 linerefs => [REF TO STR, ...] =head1 METHODS =head2 new(...) =head2 $c->as_string() =head1 AUTHOR Steven Haryanto <stevenharyanto@gmail.com> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2011 by Steven Haryanto. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut __END__