1 package Org::Element::Text;
6 extends 'Org::Element';
8 our $VERSION = '0.23'; # VERSION
10 has text => (is => 'rw');
11 has style => (is => 'rw');
13 our %mu2style = (''=>'', '*'=>'B', '_'=>'U', '/'=>'I',
14 '+'=>'S', '='=>'C', '~'=>'V');
15 our %style2mu = reverse(%mu2style);
19 my $muchar = $style2mu{$self->style // ''} // '';
23 $self->text // '', $self->children_as_string,
28 # ABSTRACT: Represent text
35 Org::Element::Text - Represent text
43 Derived from L<Org::Element>.
51 ''=normal, I=italic, B=bold, U=underline, S=strikethrough, V=verbatim,
56 =for Pod::Coverage as_string
60 Steven Haryanto <stevenharyanto@gmail.com>
62 =head1 COPYRIGHT AND LICENSE
64 This software is copyright (c) 2012 by Steven Haryanto.
66 This is free software; you can redistribute it and/or modify it under
67 the same terms as the Perl 5 programming language system itself.