diff options
| -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 |