Permalink
Browse files

cut out more irrelevant code

  • Loading branch information...
1 parent 6d8abfd commit 49a603de47a016298e794781ca75bc1cd3e16cfe @wchristian committed Nov 8, 2011
Showing with 9 additions and 16 deletions.
  1. +9 −16 Pod/PseudoPod/DOM/Role/LaTeX.pm
@@ -1,24 +1,17 @@
package Pod::PseudoPod::DOM::Role::LaTeX;
my %characters = (
- acute => sub { qq|\\'| . shift },
- grave => sub { qq|\\`| . shift },
- uml => sub { qq|\\"| . shift },
- cedilla => sub { '\c' }, # ccedilla
- opy => sub { '\copyright' }, # copy
- dash => sub { '---' }, # mdash
- lusmn => sub { '\pm' }, # plusmn
- mp => sub { '\&' }, # amp
+ acute => sub {
+ qq|\\'| . shift
+ },
+ grave => sub {
+ qq|\\`| . shift;
+ },
);
-sub emit_character
-{
- my $content = "aacute";
-
- if (my ($char, $class) = $content =~ /(\w)(\w+)/)
- {
- return $characters{$class}->($char) if exists $characters{$class};
- }
+sub emit_character {
+ $characters{'acute'}->( 'a' );
+ $characters{'grave'}->( 'a' );
}
1;

0 comments on commit 49a603d

Please sign in to comment.