| 26 |
26 |
| 27 # We will create these on load then destroy them on unload |
27 # We will create these on load then destroy them on unload |
| 28 my $TEST_GROUP = "perlTestGroup"; |
28 my $TEST_GROUP = "perlTestGroup"; |
| 29 my $TEST_NAME = "perlTestName"; |
29 my $TEST_NAME = "perlTestName"; |
| 30 my $TEST_ALIAS = "perlTestAlias"; |
30 my $TEST_ALIAS = "perlTestAlias"; |
| 31 my $PROTOCOL_ID = "prpl-aim"; |
31 my $PROTOCOL_ID = "aim"; |
| 32 |
32 |
| 33 sub foo { |
33 sub foo { |
| 34 $frame = Purple::PluginPref::Frame->new(); |
34 $frame = Purple::PluginPref::Frame->new(); |
| 35 |
35 |
| 36 $ppref = Purple::PluginPref->new_with_label("boolean"); |
36 $ppref = Purple::PluginPref->new_with_label("boolean"); |