Devel-ModInfo

 view release on metacpan or  search on metacpan

ex/MyModule.commented  view on Meta::CPAN

# MODINFO dependency module IO::Handle
use IO::Handle;

# MODINFO parent_class NiceModule
@ISA = qw/ Exporter Autoloader NiceModule /;

# MODINFO function new
sub new {
	#This is my object oriented constructor!
	my($class) = @_;
	return bless {} => $class;
}

# MODINFO function method1
sub method1 {
	my($self) = @_;
	return 1;
}

# MODINFO function method2
sub method2($$) {

ex/MyModule.pm  view on Meta::CPAN


use XML::DOM;
use CGI;
use IO::Handle;

@ISA = qw/ Exporter Autoloader NiceModule /;

sub new {
	#This is my object oriented constructor!
	my($class) = @_;
	return bless {} => $class;
}

sub method1 {
	my($self) = @_;
	return 1;
}

sub method2($$) {
	my($self, $message) = @_;
	print "$message!\n";

lib/Devel/ModInfo.pm  view on Meta::CPAN

		functions 		=> \@functions,
		properties		=> \@properties,
		module 			=> $mod_obj,
	};

	#print Dumper $self;
	
	#
	# Return object
	#
	return bless $self => $class;
}

# MODINFO function properties
# MODINFO retval ARRAYREF
sub properties{$_[0]->{properties}}

# MODINFO function methods
# MODINFO retval ARRAYREF
sub methods{$_[0]->{methods}}

lib/Devel/ModInfo/Constructor.pm  view on Meta::CPAN

our @EXPORT = qw();

# MODINFO version 2.04
our $VERSION = '2.04';

# Preloaded methods go here.
# MODINFO constructor new
sub new{
	my ($class, %attribs) = @_;
	my $self  = $class->SUPER::new(%attribs);
	return bless $self => $class;
}

1;

__END__


=head1 Devel::ModInfo::Constructor

Devel::ModInfo::Constructor - Defines a function in an object-oriented Perl module that 

lib/Devel/ModInfo/Dependency.pm  view on Meta::CPAN

# MODINFO constructor new
# MODINFO paramkey attribs  Attributes for the new object
# MODINFO key type   Type of dependency (currently either PERL (version) or MODULE)
# MODINFO key target Indicates the dependency, such as DBI or IO::Handle
sub new{
	my ($class, %attribs) = @_;
	my $self = {
		type => $attribs{type},
		target => $attribs{target},
	};
	return bless $self => $class;
}

# MODINFO function type
# MODINFO retval STRING
sub type{$_[0]->{type}}

# MODINFO function target
# MODINFO retval STRING
sub target{$_[0]->{target}}

lib/Devel/ModInfo/Feature.pm  view on Meta::CPAN

	my ($class, %attribs) = @_;
	
	my $display_name = $attribs{display_name} || $attribs{name};
	
	my $self = {
		short_description => $attribs{short_description},
		name => $attribs{name},
		display_name => $display_name,
		attributes => $attribs{attributes},
	};
	return bless $self => $class;
}


# MODINFO function short_description  Provides a short description of the feature
# MODINFO retval STRING
sub short_description{$_[0]->{short_description}}

# MODINFO function name  The internal name of the feature
# MODINFO retval STRING
sub name{$_[0]->{name}}

lib/Devel/ModInfo/Function.pm  view on Meta::CPAN

# MODINFO key parameters ARRAYREF  Array ref of parameter objects for this function
# MODINFO key data_type  STRING    Data type this function returns
sub new{
	my ($class, %attribs) = @_;
	my $self  = $class->SUPER::new(%attribs);

	#Set up local properties	
	$self->{parameters} = $attribs{parameters};
	$self->{data_type} = $attribs{data_type};
	
	return bless $self => $class;
}

# MODINFO function parameters  The array of parameters that can be provided for this function
# MODINFO retval STRING
sub parameters {$_[0]->{parameters}}

# MODINFO function data_type  The data type returned by this function
# MODINFO retval STRING
sub data_type {$_[0]->{data_type}}

lib/Devel/ModInfo/Method.pm  view on Meta::CPAN



# Preloaded methods go here.
# MODINFO constructor new
sub new{
	my ($class, %attribs) = @_;
	
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);

	return bless $self => $class;
}

1;

__END__



=head1 Devel::ModInfo::Method

lib/Devel/ModInfo/Module.pm  view on Meta::CPAN

# MODINFO key version		 STRING   Version of the class
# MODINFO key dependencies	 ARRAYREF Array of dependencies this module has
# MODINFO key parent_classes ARRAYREF Array of classes this module inherits from
sub new{
	my ($class, %attribs) = @_;
	my $self  = $class->SUPER::new(%attribs);
	$self->{class} = $attribs{class};
	$self->{version} = $attribs{version};
	$self->{dependencies} = $attribs{dependencies};
	$self->{parent_classes} = $attribs{parent_classes};
	return bless $self => $class;
}

# MODINFO function class
# MODINFO retval STRING
sub class{$_[0]->{class}}

# MODINFO function version
# MODINFO retval STRING
sub version{$_[0]->{version}}

lib/Devel/ModInfo/ParamArray.pm  view on Meta::CPAN



# Preloaded methods go here.
# MODINFO constructor new
sub new{
	my ($class, %attribs) = @_;
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);

	#Set up local properties	
	return bless $self => $class;
}

1;

__END__


=head1 Devel::ModInfo::ParamArray

Devel::ModInfo::ParamArray - Defines a particular Perl module and contains collections of 

lib/Devel/ModInfo/ParamHash.pm  view on Meta::CPAN

# MODINFO key keys  ARRAYREF Array of keys for this paramhash
sub new{
	my ($class, %attribs) = @_;
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);

	$self->{keys} = $attribs{keys};
	$self->{data_type} = String2DataType('HASH');

	#Set up local properties	
	return bless $self => $class;
}

# MODINFO function keys
# MODINFO retval ARRAYREF
sub keys{$_[0]->{keys}}

1;

__END__

lib/Devel/ModInfo/ParamHash/Key.pm  view on Meta::CPAN

# MODINFO version 2.04
our $VERSION = '2.04';

# Preloaded methods go here.
# MODINFO function new
sub new{
	my ($class, %attribs) = @_;
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);

	return bless $self => $class;
}

1;

__END__

=head1 Devel::ModInfo::ParamHash::Key

Devel::ModInfo::ParamHash::Key - Defines a single key/value pair that is expected
to be provided to a method, function, or constructor

lib/Devel/ModInfo/ParamHashRef.pm  view on Meta::CPAN

# MODINFO key keys  ARRAYREF Array of keys for this paramhash
sub new{
	my ($class, %attribs) = @_;
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);

	$self->{keys} = $attribs{keys};
	$self->{data_type} = String2DataType('HASHREF');

	#Set up local properties	
	return bless $self => $class;
}

# MODINFO function keys
# MODINFO retval ARRAYREF
sub keys{$_[0]->{keys}}

1;

__END__

lib/Devel/ModInfo/Parameter.pm  view on Meta::CPAN

# MODINFO key data_type STRING  The data type of the parameter

sub new{
	my ($class, %attribs) = @_;
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);

	#Set up local properties	
	$self->{data_type} = $attribs{data_type};

	return bless $self => $class;
}

# MODINFO function data_type
# MODINFO retval STRING
sub data_type{$_[0]->{data_type}}

1;

__END__

lib/Devel/ModInfo/ParameterScalar.pm  view on Meta::CPAN

# MODINFO paramhash attribs  Attributes for the new object
# MODINFO key data_type STRING  The data type of the parameter
sub new{
	my ($class, %attribs) = @_;
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);

	#Set up local properties	
	$self->{data_type} = $attribs{data_type};

	return bless $self => $class;
}

# MODINFO function data_type
# MODINFO retval STRING
sub data_type{$_[0]->{data_type}}

1;

__END__

lib/Devel/ModInfo/ParentClass.pm  view on Meta::CPAN

our $VERSION = '2.04';


# Preloaded methods go here.
# MODINFO constructor new
sub new{
	my ($class, %attribs) = @_;
	my $self = {
		name => $attribs{name},
	};
	return bless $self => $class;
}

# MODINFO function name
# MODINFO retval STRING
sub name{$_[0]->{name}}

1;

__END__

lib/Devel/ModInfo/Property.pm  view on Meta::CPAN

# MODINFO write_method  STRING  The name of the method that will accept a value to update this property
# MODINFO key data_type STRING  The data type of the parameter
sub new{
	my ($class, %attribs) = @_;
	#Call superclass
	my $self  = $class->SUPER::new(%attribs);
	$self->{read_method} = $attribs{read_method};
	$self->{write_method} = $attribs{write_method};
	$self->{data_type} = $attribs{data_type};

	return bless $self => $class;
}

# MODINFO function read_method
# MODINFO retval STRING
sub read_method{$_[0]->{read_method}}

# MODINFO function write_method
# MODINFO retval STRING
sub write_method{$_[0]->{write_method}}

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 1.145 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )