diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 15:06:23 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 15:06:23 +0200 |
| commit | b86e44be7d249ea4b500dab1b7a787e70da9db26 (patch) | |
| tree | fc24b2b0f99353947029b1ddc5a35ac53556587a | |
| parent | baca91450129be699d6efc903f96450faff8b90b (diff) | |
| parent | 41e9b8765f39c36a8b412de740237a3598091533 (diff) | |
Merge branch 'develop' of git.buetow.org:/git/xerl into develop
| -rw-r--r-- | README | 28 | ||||
| -rw-r--r-- | TODO | 5 |
2 files changed, 17 insertions, 16 deletions
@@ -26,8 +26,8 @@ If no real ret val, set undef; explicitly sub foo() { # Do some stuff ... -# Set explicit undef ret value -return undef; + # Set explicit undef ret value + return undef; } Private subs use _ as its prefix and are called only from the current package. @@ -37,34 +37,34 @@ package Xerl::Foo::Bla; . sub _iamprivate($) { -my Xerl::Foo:Bla $self = $_[0]; -. -. + my Xerl::Foo:Bla $self = $_[0]; + . + . } sub iampublic($) { -my Xerl::Foo:Bla $self = $_[0]; -$self->_iamprivate(); -return undef; + my Xerl::Foo:Bla $self = $_[0]; + $self->_iamprivate(); + return undef; } Static subs (not OOP) are in CAPITAL letters. sub IAMSTATIC($) { -print shift; -return 'Hello World'; + print shift; + return 'Hello World'; } sub iamdynamic($) { -my Xerl::Foo:Bla $self = $_[0]; -return Xerl::Foo::Bla::IAMSTATIC( $self->get_somevalue() ); + my Xerl::Foo:Bla $self = $_[0]; + return Xerl::Foo::Bla::IAMSTATIC( $self->get_somevalue() ); } Static private subs start with _ and are written in CAPITAL letters sub _IAMSTATICPRIVATE() { -. -. + . + . } Use Pidy to automaically restyle the code! (make perltidy) @@ -1,5 +1,6 @@ Hint: Run 'make todo' to see everything in every file what is to do! -TODO: - Documentation of all features/options TODO: - Use http://search.cpan.org/dist/XML-SAX/SAX/Intro.pod for XML parsing -TODO: - Support a Debian package +TODO: - Documentation of all features/options (manpage) +TODO: - Create a Debian package and put it to deb.buetow.org +TODO: - Change Licence to the Perl license |
