This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to annotated tag 0.24 in repository libtest-bdd-cucumber-perl.
commit dc026ea62c4cb1378ca0b467d6363080664cd3f4 Author: Paul Cochrane <[email protected]> Date: Thu Jun 5 14:28:44 2014 +0200 Adding missing POD to I18n.pm Test::Pod::Coverage noticed a few undocumented methods; this change adds the required text. I tried to copy the existing POD documentation style as much as possible, however if something needs correcting, I can update this commit accordingly. --- lib/Test/BDD/Cucumber/I18n.pm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/lib/Test/BDD/Cucumber/I18n.pm b/lib/Test/BDD/Cucumber/I18n.pm index bd144ee..e8f6009 100644 --- a/lib/Test/BDD/Cucumber/I18n.pm +++ b/lib/Test/BDD/Cucumber/I18n.pm @@ -70,15 +70,37 @@ sub _initialize_language_definitions_from_shared_json_file { return $langdefs; } +=head1 METHODS + +=head2 languages + +Get codes of supported languages. + +=cut + sub languages { return keys %$langdefs; } +=head2 has_language($language) + +Check if a language is supported. Takes as argument the language +abbreviation defined in C<share/i18n.json>. + +=cut + sub has_language { my ($language) = @_; exists $langdefs->{$language}; } +=head2 langdef($language) + +Get definition of a language. Takes as argument the language abbreviation +defined in C<share/i18n.json>. + +=cut + sub langdef { my ($language) = @_; @@ -86,6 +108,12 @@ sub langdef { return $langdefs->{$language}; } +=head2 readable_keywords($string, $transform) + +Get readable keyword definitions. + +=cut + sub readable_keywords { my ( $string, $transform ) = @_; @@ -96,6 +124,12 @@ sub readable_keywords { return join( ', ', map { '"' . $_ . '"' } @keywords ); } +=head2 keyword_to_subname + +Return a keyword into a subname with non-word characters removed. + +=cut + sub keyword_to_subname { my ($word) = @_; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtest-bdd-cucumber-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
