1 package Net::VoIP_Innovations;
7 #SOAP::Lite->import(+trace=>'debug');
11 Net::VoIP_Innovations - Interface to VoIP_Innovations API
15 our $VERSION = '3.00_01';
16 our $URI = 'http://dev.voipinnovations.com/VOIP/Services/APIService.asmx';
17 our $NS = 'http://tempuri.org'; #nice one
24 use Net::VoIP_Innovations 3;
26 my $handle = Net::VoIP_Innovations->new(
28 'password' => 'beast',
51 =head2 new HASHREF | OPTION, VALUE ...
53 Creates a new Net::VoIP_Innovations object. Options may be passed
54 as a hash reference or a flat list of names and values.
58 =item login (required)
60 =item password (secret) (required)
68 # If there is an error,
69 #returns false and sets an error string which may be queried with the I<errstr>
74 my $class = ref($proto) || $proto;
75 my $self = ref($_[0]) ? shift : { @_ };
76 $self->{'debug'} ||= 0;
88 unless ref($class) && $class->isa('Net::VoIP_Innovations');
94 sub DESTROY { }; # no-op
98 my $opts = ref($_[0]) ? shift : { @_ };
100 $AUTOLOAD =~ /(^|::)(\w+)$/ or die "unparsable AUTOLOAD: $AUTOLOAD";
103 $opts->{'login'} ||= $self->{'login'};
104 $opts->{'secret'} ||= $self->{'password'};
105 my @soap_opts = map { SOAP::Data->name($_)->value( $opts->{$_} ) }
112 ->on_action( sub { join '/', @_ } )
113 ->$function( @soap_opts )
120 Ivan Kohler, C<< <ivan-net-voipinnovations at freeside.biz> >>
124 Please report any bugs or feature requests to C<bug-net-voip_innovations at rt.cpan.org>, or through
125 the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-VoIP_Innovations>. I will be notified, and then you'll
126 automatically be notified of progress on your bug as I make changes.
133 You can find documentation for this module with the perldoc command.
135 perldoc Net::VoIP_Innovations
138 You can also look for information at:
142 =item * RT: CPAN's request tracker
144 L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-VoIP_Innovations>
146 =item * AnnoCPAN: Annotated CPAN documentation
148 L<http://annocpan.org/dist/Net-VoIP_Innovations>
152 L<http://cpanratings.perl.org/d/Net-VoIP_Innovations>
156 L<http://search.cpan.org/dist/Net-VoIP_Innovations>
161 =head1 ACKNOWLEDGEMENTS
164 =head1 COPYRIGHT & LICENSE
166 Copyright 2008-2014 Freeside Internet Services, Inc. (http://freeside.biz/)
168 This program is free software; you can redistribute it and/or modify it
169 under the same terms as Perl itself.
174 Need a complete, open-source back-office and customer self-service solution?
175 The Freeside software includes support for VoIP Innovations integration, CDR
176 rating, invoicing, credit card and electronic check processing, integrated
177 trouble ticketing, and customer signup and self-service web interfaces.
179 http://freeside.biz/freeside/