repo.or.cz
/
blog.pm.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Messing with common i18n modules.
[blog.pm.git]
/
lib
/
Blog
/
Helper
/
CCode.pm
blob
d75fcae340475e4f483d339d894daf9b97e60afc
1
package
Blog
::
Helper
::
CCode
;
2
3
use
strict
;
4
use
base
'Blog::Helper'
;
5
6
our
$ccode
;
7
8
use
Blog
::
Parse
::
BBCode
;
9
10
sub
render
{
11
my
$self
=
shift
;
12
my
(
$text
) =
@_
;
13
14
$ccode
||=
Blog
::
Parse
::
BBCode
->
new
(
deny
=>
'noparse'
);
15
16
return
$ccode
->
render
(
$text
);
17
}
18
19
1
;