Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

GENEHACK / MooseX-amine-0.7 / bin / list_methods_for_native_trait 

            

              
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

              
#! /opt/perl/bin/perl
# ABSTRACT: List available delegation targets for Moose native traits
# PODNAME: list_methods_for_native_trait
use autodie;
use strict;
use warnings;
use 5.010;
use Module::Info;
my $trait = shift
  or _list_available_traits();
_list_methods_for_trait( $trait );
sub _list_methods_for_trait {
  my $trait = shift;
  $trait = ucfirst( $trait );
  my $trait_dir = _get_native_accessor_dir();
  $trait_dir .= "/$trait";
  if ( ! -d $trait_dir ) {
    say STDERR "That's not a valid trait name!";
    exit(1);
  }
  opendir( my $DIR , $trait_dir );
  my @methods = grep { ! /^\./ and /^[a-z]/ and s/\.pm$// } readdir( $DIR );
  closedir( $DIR );
  say "METHODS FOR ",uc($trait);
  say "  * $_" foreach @methods;
  say '';
  exit(0);
}
sub _list_available_traits {
  my $accessor_dir = _get_native_accessor_dir();
  opendir( my $DIR , $accessor_dir );
  my @traits = grep { ! /^\./ and -d "$accessor_dir/$_" } readdir( $DIR );
  closedir( $DIR );
  say "AVAILABLE TRAITS";
  say "  * $_" foreach @traits;
  say '';
  say "Run '$0 TRAITNAME' to list delegation target methods for that trait.";
  exit(0);
}
sub _get_native_accessor_dir {
  my $file = Module::Info->new_from_module( 'Moose' )->file;
  my $dir  = $file;
  $dir =~ s/.pm$//;
  return $dir .= '/Meta/Method/Accessor/Native/';
}
__END__
=pod
=encoding UTF-8
=head1 NAME
list_methods_for_native_trait - List available delegation targets for Moose native traits
=head1 VERSION
version 0.7
=head1 SYNOPSIS
    # see available traits
    list_methods_for_native_trait
    # see available delegation targets for Hash traits
    list_methods_for_native_trait Hash
=head1 DESCRIPTION
Love native traits but can't remember the names of the methods you need to
delegate to in your C<handles> statement? This script will help.
=head1 SEE ALSO
You may also be interested in mex(1) - a console-based Moose class inspector.
=head1 AUTHOR
John SJ Anderson <john@genehack.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2020 by John SJ Anderson.
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