Changeset cb54527 for perl/lib/Net/Jabber/Dialback.pm
- Timestamp:
- Mar 26, 2007, 9:04:54 PM (17 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 4c2ec6c
- Parents:
- 18a99d2
- git-author:
- Nelson Elhage <nelhage@mit.edu> (03/26/07 21:04:37)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (03/26/07 21:04:54)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/Net/Jabber/Dialback.pm
r0ff8d110 rcb54527 38 38 the XML::Stream hash. For example: 39 39 40 my $dialback = new Net::Jabber::Dialback(%hash);40 my $dialback = Net::Jabber::Dialback->new(%hash); 41 41 42 42 You now have access to all of the retrieval functions available. … … 46 46 use Net::Jabber qw(Server); 47 47 48 $DB = new Net::Jabber::Dialback("verify");49 $DB = new Net::Jabber::Dialback("result");48 $DB = Net::Jabber::Dialback->new("verify"); 49 $DB = Net::Jabber::Dialback->new("result"); 50 50 51 51 Please see the specific documentation for Net::Jabber::Dialback::Result … … 98 98 { 99 99 my ($temp) = @_; 100 return new Net::Jabber::Dialback::Result()100 return Net::Jabber::Dialback::Result->new() 101 101 if ($temp eq "result"); 102 return new Net::Jabber::Dialback::Verify()102 return Net::Jabber::Dialback::Verify->new() 103 103 if ($temp eq "verify"); 104 104 105 105 my @temp = @{$temp}; 106 return new Net::Jabber::Dialback::Result(@temp)106 return Net::Jabber::Dialback::Result->new(@temp) 107 107 if ($temp[0] eq "db:result"); 108 return new Net::Jabber::Dialback::Verify(@temp)108 return Net::Jabber::Dialback::Verify->new(@temp) 109 109 if ($temp[0] eq "db:verify"); 110 110 }
Note: See TracChangeset
for help on using the changeset viewer.