Class::HPLOO 0.23

Class::HPLOO is an easier way to declare classes on Perl, based in the popular class {...} style and ePod. USAGE use Class::HPLOO ; class Foo extends Bar , Baz { use LWP::Simple qw(get) ; ## import the method get() to this package. attr ( array foo_list , int age , string name , foo ) ## define attributes. vars ($GLOBAL_VAR) ; ## same as: use vars qw($GLOBAL_VAR); my ($local_var) ; ## constructor/initializer: sub Foo { $this->{attr} = $_[0] ; } ## methods with input variables declared: sub get_pages ($base , @pages , %options) { my @htmls ; if ( $options{proxy} ) { ... } foreach my $pages_i ( @pages ) { my $url = "$base/$pages_i" ; my $html = get($url) ; push(@htmls , $html) ; $this->cache($url , $html) ; } return @htmls ; } ## methos like a normal Perl sub: sub cache { my ( $url , $html ) = @_ ; $this->{CACHE}{$url} = $html ; } sub attributes_example { $this->set_foo_list(qw(a b c d e f)) ; my @l = $this->get_foo_list ; $this->set_age(30) ; $this->set_name("Joe") ; $this->set_foo( time() ) ; print "NAME: ". $this->get_name ."n" ; print "AGE: ". $this->get_age ."n" ; print "FOO: ". $this->get_foo ."n" ; } } ## Example of use of the class: package main ; my $foo = new Foo(123) ; $foo->get_pages(http://www.perlmonks.com/, [/index.pl,/foo] , {proxy => localhost:8080}) ;.

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Class,  Classhploo,  Foo,  Hploo,  Html,  Libraries,  Pages,  Perl,  Programming,  Url
Users rating:	0/10