/usr/share/perl5/DBIx/Class/Candy/Exports.pm is in libdbix-class-candy-perl 0.005003-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | package DBIx::Class::Candy::Exports;
$DBIx::Class::Candy::Exports::VERSION = '0.005003';
# ABSTRACT: Create sugar for your favorite ORM, DBIx::Class
use strict;
use warnings;
our %methods;
our %aliases;
sub export_methods { $methods{scalar caller(0)} = $_[0] }
sub export_method_aliases { $aliases{scalar caller(0)} = $_[0] }
use Sub::Exporter -setup => {
exports => [ qw(export_methods export_method_aliases) ],
groups => { default => [ qw(export_methods export_method_aliases) ] },
};
1;
__END__
=pod
=head1 NAME
DBIx::Class::Candy::Exports - Create sugar for your favorite ORM, DBIx::Class
=head1 SYNOPSIS
package DBIx::Class::Widget;
sub create_a_widget { ... }
# so you don't depend on ::Candy
eval {
require DBIx::Class::Candy::Exports;
DBIx::Class::Candy::Exports->import;
export_methods ['create_a_widget'];
export_method_aliases {
widget => 'create_a_widget'
};
}
1;
The above will make it such that users of your component who use it with
L<DBIx::Class::Candy> will have the methods you designate exported into
their namespace.
=head1 DESCRIPTION
The whole point of this module is to make sugar a first class citizen in
the component world that dominates L<DBIx::Class>. I make enough components
and like this sugar idea enough that I want to be able to have both at the
same time.
=head1 IMPORTED SUBROUTINES
=head2 export_methods
export_methods [qw( foo bar baz )];
Use this subroutine to define methods that get exported as subroutines of the
same name.
=head2 export_method_aliases
export_method_aliases {
old_method_name => 'new_sub_name',
};
Use this subroutine to define methods that get exported as subroutines of a
different name.
=head1 AUTHOR
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 by Arthur Axel "fREW" Schmidt.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|