mirror of https://github.com/Wilfred/difftastic/
44 lines
730 B
Perl
44 lines
730 B
Perl
package BaseModule::YeaThis;
|
|
|
|
use parent 'PerlModule';
|
|
|
|
$foo::bar = 1;
|
|
|
|
BaseModule::YeaThis->new->hello();
|
|
|
|
my $simple = SimpleModule->new();
|
|
|
|
my $parent_call = $self->SUPER::Something($string);
|
|
|
|
|
|
my $event = {
|
|
user_id => Data::UUID->new->Something($dbh, {}),
|
|
};
|
|
|
|
|
|
my $output = {
|
|
some_property => BaseModule::AtSomeWhere::GetSomething(121, {
|
|
KEY => $var->{there},
|
|
}),
|
|
};
|
|
|
|
my $object_return = BaseModule::AtSomeWhere::GetSomething(121, {
|
|
KEY => $var->{there}->{here},
|
|
})->SomeOtherSub('hahaha');
|
|
|
|
=pod
|
|
=head1 Heading Text
|
|
=head2 Heading Text
|
|
=head3 Heading Text
|
|
=head4 Heading Text
|
|
=over indentlevel
|
|
=item stuff
|
|
=back
|
|
=begin format
|
|
=end format
|
|
=for format text...
|
|
=encoding type
|
|
=end
|
|
|
|
print "Well hello beautiful";
|