/usr/lib/purple-2/perl/Purple.pm is in libpurple0 2.11.0-0+deb8u2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 | package Purple;
use 5.008;
use strict;
use warnings;
use Carp;
require Exporter;
use AutoLoader;
our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use Purple ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(
);
our $VERSION = '0.01';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
# XS function.
my $constname;
our $AUTOLOAD;
($constname = $AUTOLOAD) =~ s/.*:://;
croak "&Purple::constant not defined" if $constname eq 'constant';
my ($error, $val) = constant($constname);
if ($error) { croak $error; }
{
no strict 'refs';
*$AUTOLOAD = sub { $val };
}
goto &$AUTOLOAD;
}
require XSLoader;
XSLoader::load('Purple', $VERSION);
# Preloaded methods go here.
1;
__END__
=head1 NAME
Purple - Perl extension to the libpurple instant messenger library.
=head1 SYNOPSIS
use Purple;
=head1 ABSTRACT
This module provides the interface for using perl scripts as plugins
in libpurple.
=head1 DESCRIPTION
This module provides the interface for using perl scripts as plugins
in Purple. With this, developers can write perl scripts that can be
loaded in Purple as plugins. The scripts can interact with IMs, chats,
accounts, the buddy list, libpurple signals, and more.
The API for the perl interface is very similar to that of the Purple C
API, which can be viewed at http://developer.pidgin.im/doxygen/ or in
the header files in the Purple source tree.
=head1 FUNCTIONS
=over
=item @accounts = Purple::accounts
Returns a list of all accounts, online or offline.
=item @chats = Purple::chats
Returns a list of all chats currently open.
=item @connections = Purple::connections
Returns a list of all active connections.
=item @conversations = Purple::conversations
Returns a list of all conversations, both IM and chat, currently open.
=item @conv_windows = Purple::conv_windows
Returns a list of all conversation windows currently open.
=item @ims = Purple::ims
Returns a list of all instant messages currently open.
=back
=head1 SEE ALSO
Purple C API documentation - http://developer.pidgin.im/doxygen/
Purple website - http://pidgin.im/
=head1 AUTHOR
Christian Hammond, E<lt>chipx86@gnupdate.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2003 by Christian Hammond
This library is free software; you can redistribute it and/or modify
it under the terms of the General Public License (GPL). For
more information, see http://www.fsf.org/licenses/gpl.txt
=cut
|