File Coverage

blib/lib/CTK/Plugin/Test.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	23	23	100.0

package CTK::Plugin::Test;
use strict;
use utf8;

=encoding utf-8

=head1 NAME

CTK::Plugin::Test - Test plugin as example for Your plugins

=head1 VERSION

Version 1.00

=head1 SYNOPSIS

    use CTK;
    my $ctk = new CTK(
            plugins => "test",
        );
    print $ctk->foo;

=head1 DESCRIPTION

Test plugin as example for Your plugins. See L

=head2 init

Initializer. Optional method. See L

=head1 METHODS

=over 8

=item B

    print $ctk->foo;

Returns wrapped the tms value from CTK object

=back

=head1 HISTORY

See C file

=head1 DEPENDENCIES

L, L

=head1 TO DO

See C file

=head1 BUGS

* none noted

=head1 SEE ALSO

L, L

=head1 AUTHOR

Serż Minus (Sergey Lepenkov) L [e-mail]

=head1 COPYRIGHT

Copyright (C) 1998-2019 D&D Corporation. All Rights Reserved

=head1 LICENSE

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See C file and L

=cut

use vars qw/ $VERSION /;
$VERSION = '1.00';

use base qw/CTK::Plugin/;

sub init {
    my $self = shift; # It is CTK object!
    # ... you can also call any base CTK methods  here
    return 1;
}

__PACKAGE__->register_method(
    namespace => "CTK",
    method    => "foo",
    callback  => sub {
        my $self = shift; # It is CTK object!
        return sprintf("The %s was called as foo method defined in Test. Say: %s\n", __PACKAGE__, $self->tms);
});

1;

__END__