obj
Sponsored Links
Sponsored Links
Secleted [ 0 ] software to compare
Results 1 - 15 of about 140
ObjectivePerl 0.04
ObjectivePerl is an Objective-C style syntax and runtime for perl. more>>
ObjectivePerl is an Objective-C style syntax and runtime for perl.
SYNOPSIS
use ObjectivePerl;
@implementation MyClass
{
$someInstanceVariable;
@private: $privateInstanceVariable;
@protected: $normalInstanceVariable, $anotherInstanceVariable;
}
+ new {
return ~[$super new];
}
- setSomeInstanceVariable: $value {
$someInstanceVariable = $value;
}
- someInstanceVariable {
return $someInstanceVariable;
}
@end
then, from a calling script or class:
use ObjectivePerl;
...
my $instance = ~[MyClass new];
~[$instance setSomeInstanceVariable: "Hey you!"];
print ~[$instance someInstanceVariable]."n";
ObjectivePerl adds obj-c style syntax (although its implemented with ~[] instead of just []) along with an obj-c style runtime that is very lightweight but makes the perl runtime a little more friendly to obj-c programmers.
Why, you ask? Just because. Obj-c has the easiest-to-read syntax of just about any language. It has Smalltalk-style named arguments that are built into the method signature, so when you invoke those methods, youre forced to invoke them neatly, in a very legible fashion:
~[$window setTitleTo:"New window" withColor:0xffffff
andBackground:0x000000];
can never be misunderstood, whereas
$window->setTitle("New window", 0xffffff, 0x00000);
could be. Perl offers named arguments already in the form of hashes, but these are unwieldy (to an obj-c programmer).
<<lessSYNOPSIS
use ObjectivePerl;
@implementation MyClass
{
$someInstanceVariable;
@private: $privateInstanceVariable;
@protected: $normalInstanceVariable, $anotherInstanceVariable;
}
+ new {
return ~[$super new];
}
- setSomeInstanceVariable: $value {
$someInstanceVariable = $value;
}
- someInstanceVariable {
return $someInstanceVariable;
}
@end
then, from a calling script or class:
use ObjectivePerl;
...
my $instance = ~[MyClass new];
~[$instance setSomeInstanceVariable: "Hey you!"];
print ~[$instance someInstanceVariable]."n";
ObjectivePerl adds obj-c style syntax (although its implemented with ~[] instead of just []) along with an obj-c style runtime that is very lightweight but makes the perl runtime a little more friendly to obj-c programmers.
Why, you ask? Just because. Obj-c has the easiest-to-read syntax of just about any language. It has Smalltalk-style named arguments that are built into the method signature, so when you invoke those methods, youre forced to invoke them neatly, in a very legible fashion:
~[$window setTitleTo:"New window" withColor:0xffffff
andBackground:0x000000];
can never be misunderstood, whereas
$window->setTitle("New window", 0xffffff, 0x00000);
could be. Perl offers named arguments already in the form of hashes, but these are unwieldy (to an obj-c programmer).
Download (0.016MB)
Added: 2007-06-22 License: Perl Artistic License Price:
854 downloads
Object::InsideOut 3.17
Object::InsideOut is a comprehensive inside-out object support module. more>>
Object::InsideOut is a comprehensive inside-out object support module.
SYNOPSIS
package My::Class; {
use Object::InsideOut;
# Numeric field
# With combined get+set accessor
my @data
:Field
:Type(numeric)
:Accessor(data);
# Takes INPUT (or input, etc.) as a mandatory parameter to ->new()
my %init_args :InitArgs = (
INPUT => {
Regex => qr/^input$/i,
Mandatory => 1,
Type => numeriC,
},
);
# Handle class-specific args as part of ->new()
sub init :Init
{
my ($self, $args) = @_;
# Put input parameter into data field
$self->set(@data, $args->{INPUT});
}
}
package My::Class::Sub; {
use Object::InsideOut qw(My::Class);
# List field
# With standard get_X and set_X accessors
# Takes INFO as an optional list parameter to ->new()
# Value automatically added to @info array
# Defaults to [ empty ]
my @info
:Field
:Type(list)
:Standard(info)
:Arg(Name => INFO, Default => empty);
}
package Foo; {
use Object::InsideOut;
# Field containing My::Class objects
# With combined accessor
# Plus automatic parameter processing on object creation
my @foo
:Field
:Type(My::Class)
:All(foo);
}
package main;
my $obj = My::Class::Sub->new(Input => 69);
my $info = $obj->get_info(); # [ empty ]
my $data = $obj->data(); # 69
$obj->data(42);
$data = $obj->data(); # 42
$obj = My::Class::Sub->new(INFO => help, INPUT => 86);
$data = $obj->data(); # 86
$info = $obj->get_info(); # [ help ]
$obj->set_info(qw(foo bar baz));
$info = $obj->get_info(); # [ foo, bar, baz ]
my $foo_obj = Foo->new(foo => $obj);
$foo_obj->foo()->data(); # 86
<<lessSYNOPSIS
package My::Class; {
use Object::InsideOut;
# Numeric field
# With combined get+set accessor
my @data
:Field
:Type(numeric)
:Accessor(data);
# Takes INPUT (or input, etc.) as a mandatory parameter to ->new()
my %init_args :InitArgs = (
INPUT => {
Regex => qr/^input$/i,
Mandatory => 1,
Type => numeriC,
},
);
# Handle class-specific args as part of ->new()
sub init :Init
{
my ($self, $args) = @_;
# Put input parameter into data field
$self->set(@data, $args->{INPUT});
}
}
package My::Class::Sub; {
use Object::InsideOut qw(My::Class);
# List field
# With standard get_X and set_X accessors
# Takes INFO as an optional list parameter to ->new()
# Value automatically added to @info array
# Defaults to [ empty ]
my @info
:Field
:Type(list)
:Standard(info)
:Arg(Name => INFO, Default => empty);
}
package Foo; {
use Object::InsideOut;
# Field containing My::Class objects
# With combined accessor
# Plus automatic parameter processing on object creation
my @foo
:Field
:Type(My::Class)
:All(foo);
}
package main;
my $obj = My::Class::Sub->new(Input => 69);
my $info = $obj->get_info(); # [ empty ]
my $data = $obj->data(); # 69
$obj->data(42);
$data = $obj->data(); # 42
$obj = My::Class::Sub->new(INFO => help, INPUT => 86);
$data = $obj->data(); # 86
$info = $obj->get_info(); # [ help ]
$obj->set_info(qw(foo bar baz));
$info = $obj->get_info(); # [ foo, bar, baz ]
my $foo_obj = Foo->new(foo => $obj);
$foo_obj->foo()->data(); # 86
Download (0.010MB)
Added: 2007-05-18 License: Perl Artistic License Price:
889 downloads
Object::Transaction 1.01
Object::Transaction is a virtual base class for transactions on files containing serialized hash objects. more>>
Object::Transaction is a virtual base class for transactions on files containing serialized hash objects.
SYNOPSIS
use Object::Transaction;
transaction($coderef, @codeargs);
commit();
abandon();
$there_is_a_pending_transaction = transaction_pending()
package Pkg;
@ISA = qw(Object::Transaction);
use Object::Transaction;
$obj = sub new { ... }
sub file($ref,$id) { ... }
$obj = load Pkg $id;
$obj->savelater();
$obj->save();
$obj->removelater();
$obj->remove();
$obj->commit();
$obj->uncache();
$obj->abandon();
$oldobj = $obj->old();
$reference = $obj->objectref();
$obj = $reference->loadref();
$id = sub id { ... }
$restart_commit = sub precommit() { }
@passby = sub presave($old) { ... }
sub postsave($old,@passby) { ... }
$newid = sub preload($id) { .... }
sub postload() { ... }
sub preremove() { ... }
sub postremove() { ... }
Object::Transaction provides transaction support for hash-based objects that are stored one-per-file using Storable. Multiuser access is supported. In the future, serializing methods other than Storable will be supported.
Object::Transaction is a virtual base class. In order to use it, you must inherit from it and override the new method and the file method.
Optomistic locking is used: it is possible that a transaction will fail because the data that is is based upon has changed out from under it.
<<lessSYNOPSIS
use Object::Transaction;
transaction($coderef, @codeargs);
commit();
abandon();
$there_is_a_pending_transaction = transaction_pending()
package Pkg;
@ISA = qw(Object::Transaction);
use Object::Transaction;
$obj = sub new { ... }
sub file($ref,$id) { ... }
$obj = load Pkg $id;
$obj->savelater();
$obj->save();
$obj->removelater();
$obj->remove();
$obj->commit();
$obj->uncache();
$obj->abandon();
$oldobj = $obj->old();
$reference = $obj->objectref();
$obj = $reference->loadref();
$id = sub id { ... }
$restart_commit = sub precommit() { }
@passby = sub presave($old) { ... }
sub postsave($old,@passby) { ... }
$newid = sub preload($id) { .... }
sub postload() { ... }
sub preremove() { ... }
sub postremove() { ... }
Object::Transaction provides transaction support for hash-based objects that are stored one-per-file using Storable. Multiuser access is supported. In the future, serializing methods other than Storable will be supported.
Object::Transaction is a virtual base class. In order to use it, you must inherit from it and override the new method and the file method.
Optomistic locking is used: it is possible that a transaction will fail because the data that is is based upon has changed out from under it.
Download (0.017MB)
Added: 2007-05-21 License: Perl Artistic License Price:
886 downloads
Object::AutoAccessor 0.06
Object::AutoAccessor is an accessor class by using AUTOLOAD. more>>
Object::AutoAccessor is an accessor class by using AUTOLOAD.
SYNOPSIS
use Object::AutoAccessor;
my $struct = {
foo => {
bar => {
baz => BUILD OK,
},
},
};
# Now lets easily accomplish it.
my $obj = Object::AutoAccessor->build($struct);
print $obj->foo->bar->baz; # prints BUILD OK
# OK, now reverse it!
$obj->foo->bar->baz(TO HASHREF);
my $hashref = $obj->as_hashref;
print $hashref->{foo}->{bar}->{baz}; # prints TO HASHREF;
# Of course, new() can be used.
$obj = Object::AutoAccessor->new();
# setter methods
$obj->foo(bar);
$obj->set_foo(bar);
$obj->param(foo => bar);
# getter methods
$obj->foo();
$obj->get_foo();
$obj->param(foo);
# $obj->param() is compatible with HTML::Template->param()
my @keywords = $obj->param();
my $val = $obj->param(hash);
$obj->param(key => val);
my $tmpl = HTML::Template->new(..., associate => [$obj], ...);
Object::AutoAccessor is a Accessor class to get/set values by AUTOLOADed method automatically. Moreover, param() is compatible with HTML::Template module, so you can use Object::AutoAccessor object for HTML::Templates associate option.
<<lessSYNOPSIS
use Object::AutoAccessor;
my $struct = {
foo => {
bar => {
baz => BUILD OK,
},
},
};
# Now lets easily accomplish it.
my $obj = Object::AutoAccessor->build($struct);
print $obj->foo->bar->baz; # prints BUILD OK
# OK, now reverse it!
$obj->foo->bar->baz(TO HASHREF);
my $hashref = $obj->as_hashref;
print $hashref->{foo}->{bar}->{baz}; # prints TO HASHREF;
# Of course, new() can be used.
$obj = Object::AutoAccessor->new();
# setter methods
$obj->foo(bar);
$obj->set_foo(bar);
$obj->param(foo => bar);
# getter methods
$obj->foo();
$obj->get_foo();
$obj->param(foo);
# $obj->param() is compatible with HTML::Template->param()
my @keywords = $obj->param();
my $val = $obj->param(hash);
$obj->param(key => val);
my $tmpl = HTML::Template->new(..., associate => [$obj], ...);
Object::AutoAccessor is a Accessor class to get/set values by AUTOLOADed method automatically. Moreover, param() is compatible with HTML::Template module, so you can use Object::AutoAccessor object for HTML::Templates associate option.
Download (0.006MB)
Added: 2007-05-18 License: Perl Artistic License Price:
889 downloads
Rose::DB::Object::Helpers 0.764
Rose::DB::Object::Helpers is a mix-in class containing convenience methods for Rose::DB::Object. more>>
Rose::DB::Object::Helpers is a mix-in class containing convenience methods for Rose::DB::Object.
SYNOPSIS
package MyDBObject;
use Rose::DB::Object;
our @ISA = qw(Rose::DB::Object);
use Rose::DB::Object::Helpers clone,
{ load_or_insert => find_or_create };
...
$obj = MyDBObject->new(id => 123);
$obj->find_or_create();
$obj2 = $obj->clone;
Rose::DB::Object::Helpers provides convenience methods from use with Rose::DB::Object-derived classes. These methods do not exist in Rose::DB::Object in order to keep the method namespace clean. (Each method added to Rose::DB::Object is another potential naming conflict with a column accessor.)
This class inherits from Rose::DB::Object::MixIn. See the Rose::DB::Object::MixIn documentation for a full explanation of how to import methods from this class. The helper methods themselves are described below.
<<lessSYNOPSIS
package MyDBObject;
use Rose::DB::Object;
our @ISA = qw(Rose::DB::Object);
use Rose::DB::Object::Helpers clone,
{ load_or_insert => find_or_create };
...
$obj = MyDBObject->new(id => 123);
$obj->find_or_create();
$obj2 = $obj->clone;
Rose::DB::Object::Helpers provides convenience methods from use with Rose::DB::Object-derived classes. These methods do not exist in Rose::DB::Object in order to keep the method namespace clean. (Each method added to Rose::DB::Object is another potential naming conflict with a column accessor.)
This class inherits from Rose::DB::Object::MixIn. See the Rose::DB::Object::MixIn documentation for a full explanation of how to import methods from this class. The helper methods themselves are described below.
Download (0.47MB)
Added: 2007-07-18 License: Perl Artistic License Price:
828 downloads
Basset::Object::Persistent 1.03
Basset::Object::Persistent is a subclass of Basset::Object that allows objects to be easily stored into a relational database. more>>
Basset::Object::Persistent is a subclass of Basset::Object that allows objects to be easily stored into a relational database. Presently only supports MySQL, but that may change in the future.
SYNOPSIS
(no synopsis, this is an abstract super class that should never be instantiated directly, it should be subclassed for all persistent objects and used through them)
Basset::Object is the uber module in my Perl world. All objects should decend from Basset::Object. It handles defining attributes, error handling, construction, destruction, and generic initialization. It also talks to Basset::Object::Conf to allow conf file use.
But, some objects cannot simply be recreated constantly every time a script runs. Sometimes you need to store the data in an object between uses so that you can recreate an object in the same form the last time you left it. Storing user information, for instance.
Basset::Object::Persistent allows you to do that transparently and easily. Persistent objects need to define several pieces of additional information to allow them to commit to the database, including their table definitions. Once these items are defined, youll have access to the load and commit methods to allow you to load and store the objects in a database.
It is assumed that an object is stored in the database in a primary table. The primary table contains a set of columns named the same as object attributes. The attributes are stored in those columns.
Some::Package->add_attr(foo);
my $obj = Some::Package->new();
$obj->foo(bar);
$obj->commit();
in the database, the foo column will be set to bar.
<<lessSYNOPSIS
(no synopsis, this is an abstract super class that should never be instantiated directly, it should be subclassed for all persistent objects and used through them)
Basset::Object is the uber module in my Perl world. All objects should decend from Basset::Object. It handles defining attributes, error handling, construction, destruction, and generic initialization. It also talks to Basset::Object::Conf to allow conf file use.
But, some objects cannot simply be recreated constantly every time a script runs. Sometimes you need to store the data in an object between uses so that you can recreate an object in the same form the last time you left it. Storing user information, for instance.
Basset::Object::Persistent allows you to do that transparently and easily. Persistent objects need to define several pieces of additional information to allow them to commit to the database, including their table definitions. Once these items are defined, youll have access to the load and commit methods to allow you to load and store the objects in a database.
It is assumed that an object is stored in the database in a primary table. The primary table contains a set of columns named the same as object attributes. The attributes are stored in those columns.
Some::Package->add_attr(foo);
my $obj = Some::Package->new();
$obj->foo(bar);
$obj->commit();
in the database, the foo column will be set to bar.
Download (0.14MB)
Added: 2006-06-16 License: Perl Artistic License Price:
1225 downloads
Rose::Object::MakeMethods::Generic 0.84
Rose::Object::MakeMethods::Generic is a Perl module that can create simple object methods. more>>
Rose::Object::MakeMethods::Generic is a Perl module that can create simple object methods.
SYNOPSIS
package MyObject;
use Rose::Object::MakeMethods::Generic
(
scalar =>
[
power,
error,
],
scalar --get_set_init => name,
boolean --get_set_init => is_tall,
boolean =>
[
is_red,
is_happy => { default => 1 },
],
array =>
[
jobs => {},
job => { interface => get_set_item, hash_key => jobs },
clear_jobs => { interface => clear, hash_key => jobs },
reset_jobs => { interface => reset, hash_key => jobs },
],
hash =>
[
param => { hash_key => params },
params => { interface => get_set_all },
param_names => { interface => keys, hash_key => params },
param_values => { interface => values, hash_key => params },
param_exists => { interface => exists, hash_key => params },
delete_param => { interface => delete, hash_key => params },
clear_params => { interface => clear, hash_key => params },
reset_params => { interface => reset, hash_key => params },
],
);
sub init_name { Fred }
sub init_is_tall { 1 }
...
$obj = MyObject->new(power => 5);
print $obj->name; # Fred
$obj->do_something or die $obj->error;
$obj->is_tall; # true
$obj->is_tall(undef); # false (but defined)
$obj->is_tall; # false (but defined)
$obj->is_red; # undef
$obj->is_red(1234); # true
$obj->is_red(); # false (but defined)
$obj->is_red; # false (but defined)
$obj->is_happy; # true
$obj->params(a => 1, b => 2); # add pairs
$val = $obj->param(b); # 2
$obj->param_exists(x); # false
$obj->jobs(butcher, baker); # add values
$obj->job(0 => sailor); # set value
$job = $obj->job(0); # sailor
<<lessSYNOPSIS
package MyObject;
use Rose::Object::MakeMethods::Generic
(
scalar =>
[
power,
error,
],
scalar --get_set_init => name,
boolean --get_set_init => is_tall,
boolean =>
[
is_red,
is_happy => { default => 1 },
],
array =>
[
jobs => {},
job => { interface => get_set_item, hash_key => jobs },
clear_jobs => { interface => clear, hash_key => jobs },
reset_jobs => { interface => reset, hash_key => jobs },
],
hash =>
[
param => { hash_key => params },
params => { interface => get_set_all },
param_names => { interface => keys, hash_key => params },
param_values => { interface => values, hash_key => params },
param_exists => { interface => exists, hash_key => params },
delete_param => { interface => delete, hash_key => params },
clear_params => { interface => clear, hash_key => params },
reset_params => { interface => reset, hash_key => params },
],
);
sub init_name { Fred }
sub init_is_tall { 1 }
...
$obj = MyObject->new(power => 5);
print $obj->name; # Fred
$obj->do_something or die $obj->error;
$obj->is_tall; # true
$obj->is_tall(undef); # false (but defined)
$obj->is_tall; # false (but defined)
$obj->is_red; # undef
$obj->is_red(1234); # true
$obj->is_red(); # false (but defined)
$obj->is_red; # false (but defined)
$obj->is_happy; # true
$obj->params(a => 1, b => 2); # add pairs
$val = $obj->param(b); # 2
$obj->param_exists(x); # false
$obj->jobs(butcher, baker); # add values
$obj->job(0 => sailor); # set value
$job = $obj->job(0); # sailor
Download (0.028MB)
Added: 2007-08-17 License: Perl Artistic License Price:
798 downloads
OzDB 0.02
OzDB is a database Perl interface module for OzBot. more>>
OzDB is a database Perl interface module for OzBot.
SYNOPSIS
use OzDB;
The OzDB Perl module handles authentication and access control for the OzBot based utility bots. The basic database format is the authentication schema. This is based on a numerical ordering authentication system. If the users Authentication level is higher than that of the commands authentication level then the user is authenticated for the command and the commands special arguments will be returned to the function.
This is useful for BACKEND authentication only, where the usernames are entered by an already physically or password authorized connection. This is for information purposes, and is not to be used as an actual database such as MySQL or PgSQL. This is written to faciliate developers with rudimentary information storage and any protected information, including passwords, should not be stored in this database. It is simply a method to allow applications to store and retrieve data in an arbitrary and extensible format with special delimiters.
METHODS
$obj->authenticate("authuser.db", "authcmd.db", "$name", "$command");
$obj->add_user("$authuserdb", "$authcmddb", "$name", "$authlevel");
<<lessSYNOPSIS
use OzDB;
The OzDB Perl module handles authentication and access control for the OzBot based utility bots. The basic database format is the authentication schema. This is based on a numerical ordering authentication system. If the users Authentication level is higher than that of the commands authentication level then the user is authenticated for the command and the commands special arguments will be returned to the function.
This is useful for BACKEND authentication only, where the usernames are entered by an already physically or password authorized connection. This is for information purposes, and is not to be used as an actual database such as MySQL or PgSQL. This is written to faciliate developers with rudimentary information storage and any protected information, including passwords, should not be stored in this database. It is simply a method to allow applications to store and retrieve data in an arbitrary and extensible format with special delimiters.
METHODS
$obj->authenticate("authuser.db", "authcmd.db", "$name", "$command");
$obj->add_user("$authuserdb", "$authcmddb", "$name", "$authlevel");
Download (0.012MB)
Added: 2007-05-15 License: Perl Artistic License Price:
892 downloads
Myco 0.01
Myco is a Perl module that contains the myco object framework. more>>
Myco is a Perl module that contains the myco object framework.
SYNOPSIS
use Myco;
### DB connection
Myco->db_connect(@dbconn);
Myco->db_disconnect(@dbconn);
$storage = Myco->storage; # Tangram connection object
### Object retrieval
$obj = Myco->load($id); # retrieval by Tangram object id
# Retrieve all of given class
@objects = Myco->select(Myco::Foo);
# Retrieve all of given class, using remote object and filtering
$remote = Myco->remote(Myco::Foo);
@objects = Myco->select($remote, $filter);
# Retrieve all of given class, by cursor
$cursor = Myco->select(Myco::Foo);
while (my $obj = $cursor->current()) {
# process $obj
$cursor->next();
}
### Object insertion and update
# Myco::Base::Entity alternative
Myco->insert($obj); # $obj->save;
Myco->update($obj); # $obj->save;
Myco->update(@objects);
### Object removal - from db and memory
Myco->destroy($obj); # $obj->destroy;
Myco->destroy(@objects);
### Object removal - from just db
Myco->erase(@objects);
See Tangram::Storage for other miscellany.
Encapsulates functionality of Tangram::Storage but treats the storage connection object as class data, allowing access to object persistence functionality via class method calls.
Intended for use with so-called myco "entity" objects, that is those belonging to classes that inherit from Myco::Base::Entity. Use of inherited instance methods for managing object persistence state where possible is preferred. (ie. use $obj->save instead of both Myco->insert($obj) and Myco->update($obj).)
Pulls in all other required classes of entire Myco class system.
<<lessSYNOPSIS
use Myco;
### DB connection
Myco->db_connect(@dbconn);
Myco->db_disconnect(@dbconn);
$storage = Myco->storage; # Tangram connection object
### Object retrieval
$obj = Myco->load($id); # retrieval by Tangram object id
# Retrieve all of given class
@objects = Myco->select(Myco::Foo);
# Retrieve all of given class, using remote object and filtering
$remote = Myco->remote(Myco::Foo);
@objects = Myco->select($remote, $filter);
# Retrieve all of given class, by cursor
$cursor = Myco->select(Myco::Foo);
while (my $obj = $cursor->current()) {
# process $obj
$cursor->next();
}
### Object insertion and update
# Myco::Base::Entity alternative
Myco->insert($obj); # $obj->save;
Myco->update($obj); # $obj->save;
Myco->update(@objects);
### Object removal - from db and memory
Myco->destroy($obj); # $obj->destroy;
Myco->destroy(@objects);
### Object removal - from just db
Myco->erase(@objects);
See Tangram::Storage for other miscellany.
Encapsulates functionality of Tangram::Storage but treats the storage connection object as class data, allowing access to object persistence functionality via class method calls.
Intended for use with so-called myco "entity" objects, that is those belonging to classes that inherit from Myco::Base::Entity. Use of inherited instance methods for managing object persistence state where possible is preferred. (ie. use $obj->save instead of both Myco->insert($obj) and Myco->update($obj).)
Pulls in all other required classes of entire Myco class system.
Download (0.085MB)
Added: 2007-05-09 License: Perl Artistic License Price:
899 downloads
Compass::Bearing 0.05
Compass::Bearing is a Perl module to convert angle to text bearing (aka heading). more>>
Compass::Bearing is a Perl module to convert angle to text bearing (aka heading).
SYNOPSIS
use Compass::Bearing;
my $obj = Compass::Bearing->new();
print "Bearing: $_ deg => ", $obj->bearing($_), "n" foreach (12,45,78,133);
print "Compass: ", join(":", $obj->data),"n";
CONSTRUCTOR
new
The new() constructor may be called with any parameter that is appropriate to the set method.
my $obj = Compass::Bearing->new();
METHODS
bearing
Method returns a text string based on bearing
my $bearing=$obj->bearing($degrees_from_north);
bearing_rad
Method returns a text string based on bearing
my $bearing=$obj->bearing_rad($radians_from_north);
set
Method sets and returns key for the bearing text data structure.
my $key=$self->set;
my $key=$self->set(1);
my $key=$self->set(2);
my $key=$self->set(3); #default value
data
Method returns an array of text values.
my $data=$self->data;
<<lessSYNOPSIS
use Compass::Bearing;
my $obj = Compass::Bearing->new();
print "Bearing: $_ deg => ", $obj->bearing($_), "n" foreach (12,45,78,133);
print "Compass: ", join(":", $obj->data),"n";
CONSTRUCTOR
new
The new() constructor may be called with any parameter that is appropriate to the set method.
my $obj = Compass::Bearing->new();
METHODS
bearing
Method returns a text string based on bearing
my $bearing=$obj->bearing($degrees_from_north);
bearing_rad
Method returns a text string based on bearing
my $bearing=$obj->bearing_rad($radians_from_north);
set
Method sets and returns key for the bearing text data structure.
my $key=$self->set;
my $key=$self->set(1);
my $key=$self->set(2);
my $key=$self->set(3); #default value
data
Method returns an array of text values.
my $data=$self->data;
Download (0.020MB)
Added: 2007-05-16 License: Perl Artistic License Price:
895 downloads
Dialog 0.03
Dialog is a Perl interface to dialog(3). more>>
Dialog is a Perl interface to dialog(3).
SYNOPSIS
B< use Dialog; >
#now we are creating the new dialog window
$dlg = Dialog->new(title, y,x,height,width);
#inserting input line
$line = $dlg->inputline(name, y, x, width, text);
#adding button
$btn = $dlg->button(name, y, x, text, result);
#and text label
$labl = $dlg->label(name, y, x, text);
#and now running all the stuff
$res = $dlg->run;
Debauched Perl interface to dialog(3). Seems to work somehow. At least its been working as v0.01 for 3-4 years at http://www.vlink.ru/ before I decided to donate it free as v0.02.
The idea itself of $dlg->run, $obj->draw etc was stolen cynically from Borland Turbo Vision library. Sorry, guys, and if it breaks any copyrights, please, let me know. Trust me, I havent got any profit from this stuff yet. Hopefully will havent.
Read "SEE ALSO" and maybe it helps.
Besides "SYNOPSIS" the next OOP tricks are available:
$dlg->redraw;
$mr = $dlg->modalresult;
$dlg->modalresult(number);
$obj = $dlg->object(name);
$obj = $dlg->current;
$dlg->current(name);
$dlg->current($obj);
$text = $obj->data;
$obj->data(newtext);
$tabstop = $obj->tabstop;
$obj->tabstop(boolean);
$name = $obj->name;
And, of course, good ancient non-OOP functions:
Dialog::< many-many-consts >;
Dialog::Const::< yet-same-and-other-consts >;
void Dialog::Init(); /* only use it if there are no Dialog->new statements */
void Dialog::Exit(); /* the same note */
void Dialog::draw_shadow(y, x, h, w, win=stdscr);
void Dialog::draw_box(y, x, h, w, box, border, win=stdscr);
int Dialog::line_edit(y, x, w, box, border, win=stdscr);
WINDOW *Dialog::stdscr();
void Dialog::refresh();
int Dialog::ungetch(ch);
void Dialog::attrset(attr);
void Dialog::mvprintw(y, x, s);
void Dialog::gotoyx(y, x);
int Dialog::getch();
int Dialog::YesNo(title, prompt, h, w);
int Dialog::PrgBox(title, line, h, w, pause, use_shell);
int Dialog::MsgBox(title, prompt, h, w, pause);
int Dialog::TextBox(title, file, h, w);
str Dialog::Menu(title, prompt, h, w, menu_h, ...);
str Dialog::RadioList(title, prompt, h, w, list_h, ...);
array Dialog::CheckList(title, prompt, h, w, list_h, ...);
str Dialog::InputBox(title, prompt, h, w, str);
int Dialog::Y();
int Dialog::X();
Strings passed to Menu, CheckList and RadioList may contain single zero char (ASCII 0) which delimites menu columns. You may, of course, pass such strings into other routines, but it will be your pain yet.
And, at all, see test.pl and try to understand anything.
If you have any suggestions and/or contributions, please, dont hesitate to send me.
<<lessSYNOPSIS
B< use Dialog; >
#now we are creating the new dialog window
$dlg = Dialog->new(title, y,x,height,width);
#inserting input line
$line = $dlg->inputline(name, y, x, width, text);
#adding button
$btn = $dlg->button(name, y, x, text, result);
#and text label
$labl = $dlg->label(name, y, x, text);
#and now running all the stuff
$res = $dlg->run;
Debauched Perl interface to dialog(3). Seems to work somehow. At least its been working as v0.01 for 3-4 years at http://www.vlink.ru/ before I decided to donate it free as v0.02.
The idea itself of $dlg->run, $obj->draw etc was stolen cynically from Borland Turbo Vision library. Sorry, guys, and if it breaks any copyrights, please, let me know. Trust me, I havent got any profit from this stuff yet. Hopefully will havent.
Read "SEE ALSO" and maybe it helps.
Besides "SYNOPSIS" the next OOP tricks are available:
$dlg->redraw;
$mr = $dlg->modalresult;
$dlg->modalresult(number);
$obj = $dlg->object(name);
$obj = $dlg->current;
$dlg->current(name);
$dlg->current($obj);
$text = $obj->data;
$obj->data(newtext);
$tabstop = $obj->tabstop;
$obj->tabstop(boolean);
$name = $obj->name;
And, of course, good ancient non-OOP functions:
Dialog::< many-many-consts >;
Dialog::Const::< yet-same-and-other-consts >;
void Dialog::Init(); /* only use it if there are no Dialog->new statements */
void Dialog::Exit(); /* the same note */
void Dialog::draw_shadow(y, x, h, w, win=stdscr);
void Dialog::draw_box(y, x, h, w, box, border, win=stdscr);
int Dialog::line_edit(y, x, w, box, border, win=stdscr);
WINDOW *Dialog::stdscr();
void Dialog::refresh();
int Dialog::ungetch(ch);
void Dialog::attrset(attr);
void Dialog::mvprintw(y, x, s);
void Dialog::gotoyx(y, x);
int Dialog::getch();
int Dialog::YesNo(title, prompt, h, w);
int Dialog::PrgBox(title, line, h, w, pause, use_shell);
int Dialog::MsgBox(title, prompt, h, w, pause);
int Dialog::TextBox(title, file, h, w);
str Dialog::Menu(title, prompt, h, w, menu_h, ...);
str Dialog::RadioList(title, prompt, h, w, list_h, ...);
array Dialog::CheckList(title, prompt, h, w, list_h, ...);
str Dialog::InputBox(title, prompt, h, w, str);
int Dialog::Y();
int Dialog::X();
Strings passed to Menu, CheckList and RadioList may contain single zero char (ASCII 0) which delimites menu columns. You may, of course, pass such strings into other routines, but it will be your pain yet.
And, at all, see test.pl and try to understand anything.
If you have any suggestions and/or contributions, please, dont hesitate to send me.
Download (0.008MB)
Added: 2007-05-09 License: Perl Artistic License Price:
902 downloads
Proc::BackOff::Linear 0.01
Proc::BackOff::Linear is directly inherited from and then modified by overloading the calculate_back_off object method. more>>
Proc::BackOff::Linear is a generic module meant to be directly inherited from and then modified by overloading the calculate_back_off object method.
SYNOPSIS
Usage:
use Proc::BackOff::Linear;
my $obj = Proc::BackOff::Linear->new( { $slope => 5, x => count, b => 0 );
# sequence would be
# y = slope * x + b;
# 1st failure : 5 * count + b = 5 * 1 + 0 = 5
# 2nd failure : 5 * 2 + 0 = 10
# 3nd failure : 5 * 3 + 0 = 10
Overloaded Methods
new()
Check for variables being set:
Required: slope. B defaults to 0 x defaults to count
calculate_back_off()
Returns the new back off value.
<<lessSYNOPSIS
Usage:
use Proc::BackOff::Linear;
my $obj = Proc::BackOff::Linear->new( { $slope => 5, x => count, b => 0 );
# sequence would be
# y = slope * x + b;
# 1st failure : 5 * count + b = 5 * 1 + 0 = 5
# 2nd failure : 5 * 2 + 0 = 10
# 3nd failure : 5 * 3 + 0 = 10
Overloaded Methods
new()
Check for variables being set:
Required: slope. B defaults to 0 x defaults to count
calculate_back_off()
Returns the new back off value.
Download (0.006MB)
Added: 2007-07-28 License: Perl Artistic License Price:
819 downloads
Unix::Conf::Bind8::Conf 0.3
Unix::Conf::Bind8::Conf is a front end for a suite of classes for manipulating a Bind8 style configuration file. more>>
Unix::Conf::Bind8::Conf is a front end for a suite of classes for manipulating a Bind8 style configuration file.
SYNOPSIS
my ($conf, $obj, $ret);
$conf = Unix::Conf::Bind8->new_conf (
FILE => named.conf,
SECURE_OPEN => /etc/named.conf,
) or $conf->die ("couldnt create `named.conf");
#
# All directives have corrresponding new_*, get_*, delete_*
# methods
#
$obj = $conf->new_zone (
NAME => extremix.net,
TYPE => master,
FILE => db.extremix.net,
) or $obj->die ("couldnt create zone `extremix.net");
# For objects that have a name attribute, name is to
# be specified, otherwise no arguments are needed.
$obj = $conf->get_zone (extremix.net)
or $obj->die ("couldnt get zone `extremix.net");
$obj = $conf->get_options ()
or $obj->die ("couldnt get options");
# For objects that have a name attribute, name is to
# be specified, otherwise no arguments are needed.
$obj = $conf->delete_zone (extremix.net)
or $obj->die ("couldnt delete zone `extremix.net");
$obj = $conf->delete_options ()
or $obj->die ("couldnt get options");
# directives that have a name attribute, have iterator
# methods
printf ("Zones defined in %s:n", $conf->fh ());
for my $zone ($conf->zones ()) {
printf ("%sn", $zone->name ();
}
printf ("Directives defined in %s:n", $conf->fh ());
for my $dir ($conf->directives ()) {
print ("$dirn");
}
$db = $conf->get_db (extremix.net)
or $db->die ("couldnt get db for `extremix.net");
This class has interfaces for the various class methods of the classes that reside beneath Unix::Conf::Bind8::Conf. This class is an internal class and should not be accessed directly. Methods in this class can be accessed through a Unix::Conf::Bind8::Conf object which is returned by Unix::Conf::Bind8->new_conf ().
<<lessSYNOPSIS
my ($conf, $obj, $ret);
$conf = Unix::Conf::Bind8->new_conf (
FILE => named.conf,
SECURE_OPEN => /etc/named.conf,
) or $conf->die ("couldnt create `named.conf");
#
# All directives have corrresponding new_*, get_*, delete_*
# methods
#
$obj = $conf->new_zone (
NAME => extremix.net,
TYPE => master,
FILE => db.extremix.net,
) or $obj->die ("couldnt create zone `extremix.net");
# For objects that have a name attribute, name is to
# be specified, otherwise no arguments are needed.
$obj = $conf->get_zone (extremix.net)
or $obj->die ("couldnt get zone `extremix.net");
$obj = $conf->get_options ()
or $obj->die ("couldnt get options");
# For objects that have a name attribute, name is to
# be specified, otherwise no arguments are needed.
$obj = $conf->delete_zone (extremix.net)
or $obj->die ("couldnt delete zone `extremix.net");
$obj = $conf->delete_options ()
or $obj->die ("couldnt get options");
# directives that have a name attribute, have iterator
# methods
printf ("Zones defined in %s:n", $conf->fh ());
for my $zone ($conf->zones ()) {
printf ("%sn", $zone->name ();
}
printf ("Directives defined in %s:n", $conf->fh ());
for my $dir ($conf->directives ()) {
print ("$dirn");
}
$db = $conf->get_db (extremix.net)
or $db->die ("couldnt get db for `extremix.net");
This class has interfaces for the various class methods of the classes that reside beneath Unix::Conf::Bind8::Conf. This class is an internal class and should not be accessed directly. Methods in this class can be accessed through a Unix::Conf::Bind8::Conf object which is returned by Unix::Conf::Bind8->new_conf ().
Download (0.076MB)
Added: 2006-06-12 License: Perl Artistic License Price:
1229 downloads
JSON::PC 0.01
JSON::PC is a fast JSON parser and converter. more>>
JSON::PC is a fast JSON parser and converter.
SYNOPSIS
use JSON::PC;
my $json = new JSON::PC;
my $obj = $json->parse(q/{foo => [1,2,3], bar => "perl"}/);
print $json->convert($obj);
# or
$obj = JSON::PC::parse(q/{foo => [1,2,3], bar => "perl"}/);
print JSON::PC::convert($obj);
METHODS
Except new method, all methods are object method.
new()
new(%option)
This is a class method and returns new JSON::PC object.
parse($str)
parse($str, $options_ref)
takes JSON foramt string and returns perl data structure. jsonToObj is an alias.
convert($obj)
convert($obj, $options_ref)
takes perl data structure and returns JSON foramt string. objToJson is an alias.
autoconv($int)
This is an accessor to autoconv. See "AUTOCONVERT" for more info.
skipinvalid($int)
convert() does die() when it encounters any invalid data (for instance, coderefs). If skipinvalid is set with true(integer), the function convets these invalid data into JSON formats null.
execcoderef($int)
convert() does die() when it encounters any code reference. However, if execcoderef is set with true(integer), executes the coderef and uses returned value.
pretty($int)
This is an accessor to pretty. When prrety is true(integer), objToJson() returns prrety-printed string. See "PRETTY PRINTING" for more info.
indent($int)
This is an accessor to indent. See "PRETTY PRINTING" for more info.
delimiter($int)
This is an accessor to delimiter. See "PRETTY PRINTING" for more info.
unmapping($int)
This is an accessor to unmapping. See "UNMAPPING OPTION" for more info.
keysort($int)
keysort($code_ref)
This is an accessor to keysort. See "HASH KEY SORT ORDER" for more info.
convblessed($int)
This is an accessor to convblessed. See "BLESSED OBJECT" for more info.
selfconvert($int)
This is an accessor to selfconvert. See "BLESSED OBJECT" for more info.
singlequote($int)
This is an accessor to singlequote. See "CONVERT WITH SINGLE QUOTES" for more info.
barekey($int)
You can set a true(integer) to parse bare keys of objects.
quotapos($int)
You can set a true(integer) to parse any keys and values quoted by single quotations.
utf8($int)
This is an accessor to utf8. You can set a true(integer) to set UTF8 flag into strings contain utf8.
<<lessSYNOPSIS
use JSON::PC;
my $json = new JSON::PC;
my $obj = $json->parse(q/{foo => [1,2,3], bar => "perl"}/);
print $json->convert($obj);
# or
$obj = JSON::PC::parse(q/{foo => [1,2,3], bar => "perl"}/);
print JSON::PC::convert($obj);
METHODS
Except new method, all methods are object method.
new()
new(%option)
This is a class method and returns new JSON::PC object.
parse($str)
parse($str, $options_ref)
takes JSON foramt string and returns perl data structure. jsonToObj is an alias.
convert($obj)
convert($obj, $options_ref)
takes perl data structure and returns JSON foramt string. objToJson is an alias.
autoconv($int)
This is an accessor to autoconv. See "AUTOCONVERT" for more info.
skipinvalid($int)
convert() does die() when it encounters any invalid data (for instance, coderefs). If skipinvalid is set with true(integer), the function convets these invalid data into JSON formats null.
execcoderef($int)
convert() does die() when it encounters any code reference. However, if execcoderef is set with true(integer), executes the coderef and uses returned value.
pretty($int)
This is an accessor to pretty. When prrety is true(integer), objToJson() returns prrety-printed string. See "PRETTY PRINTING" for more info.
indent($int)
This is an accessor to indent. See "PRETTY PRINTING" for more info.
delimiter($int)
This is an accessor to delimiter. See "PRETTY PRINTING" for more info.
unmapping($int)
This is an accessor to unmapping. See "UNMAPPING OPTION" for more info.
keysort($int)
keysort($code_ref)
This is an accessor to keysort. See "HASH KEY SORT ORDER" for more info.
convblessed($int)
This is an accessor to convblessed. See "BLESSED OBJECT" for more info.
selfconvert($int)
This is an accessor to selfconvert. See "BLESSED OBJECT" for more info.
singlequote($int)
This is an accessor to singlequote. See "CONVERT WITH SINGLE QUOTES" for more info.
barekey($int)
You can set a true(integer) to parse bare keys of objects.
quotapos($int)
You can set a true(integer) to parse any keys and values quoted by single quotations.
utf8($int)
This is an accessor to utf8. You can set a true(integer) to set UTF8 flag into strings contain utf8.
Download (0.047MB)
Added: 2007-07-21 License: Perl Artistic License Price:
829 downloads
Geo::ECEF 0.08
Geo::ECEF is a Perl module that converts between ECEF coordinates and latitude, longitude and height above ellipsoid. more>>
Geo::ECEF is a Perl module that converts between ECEF (earth centered earth fixed) coordinates and latitude, longitude and height above ellipsoid.
SYNOPSIS
use Geo::ECEF;
my $obj=Geo::ECEF->new(); #WGS84 is the default
my ($x, $y, $z)=$obj->ecef(39.197807, -77.108574, 55); #Lat (deg), Lon (deg), HAE (meters)
print "X: $xtY: $ytZ: $zn";
my ($lat, $lon, $hae)=$obj->geodetic($x, $y, $z); #X (meters), Y (meters), Z (meters)
print "Lat: $lat tLon: $lon tHAE $haen";
Geo::ECEF provides two methods ecef and geodetic. The ecef method calculates the X,Y and Z coordinates in the ECEF (earth centered earth fixed) coordinate system from latitude, longitude and height above the ellipsoid. The geodetic method calculates the latitude, longitude and height above ellipsoid from ECEF coordinates.
The formulas were found at http://www.u-blox.ch/ and http://waas.stanford.edu/~wwu/maast/maastWWW1_0.zip.
This code is an object Perl rewrite of a similar package by Morten Sickel, Norwegian Radiation Protection Authority
<<lessSYNOPSIS
use Geo::ECEF;
my $obj=Geo::ECEF->new(); #WGS84 is the default
my ($x, $y, $z)=$obj->ecef(39.197807, -77.108574, 55); #Lat (deg), Lon (deg), HAE (meters)
print "X: $xtY: $ytZ: $zn";
my ($lat, $lon, $hae)=$obj->geodetic($x, $y, $z); #X (meters), Y (meters), Z (meters)
print "Lat: $lat tLon: $lon tHAE $haen";
Geo::ECEF provides two methods ecef and geodetic. The ecef method calculates the X,Y and Z coordinates in the ECEF (earth centered earth fixed) coordinate system from latitude, longitude and height above the ellipsoid. The geodetic method calculates the latitude, longitude and height above ellipsoid from ECEF coordinates.
The formulas were found at http://www.u-blox.ch/ and http://waas.stanford.edu/~wwu/maast/maastWWW1_0.zip.
This code is an object Perl rewrite of a similar package by Morten Sickel, Norwegian Radiation Protection Authority
Download (0.005MB)
Added: 2007-05-18 License: Perl Artistic License Price:
903 downloads
Secleted [ 0 ] software to compare
Copyright Notice:
Software piracy is theft, Using crack, password, serial numbers, registration codes, key generators is illegal and prevent future software development. The above obj search only lists software in full, demo and trial versions for free download. Download links are directly from our mirror sites or publisher sites, torrent files or links from rapidshare.com, yousendit.com or megaupload.com are not allowed
