~ubuntu-branches/ubuntu/natty/kdebindings/natty

« back to all changes in this revision

Viewing changes to perl/qtwebkit/lib/QtWebKit4.pm

• browse files at revision 89
• compare with another revision
• download diff
• download tarball
• view history from revision 89

Show diffs side-by-side

added

removed

perl/qtwebkit/lib/QtWebKit4.pm

 

1

#***************************************************************************

 

2

#                          QtWebKit4.pm  -  QtWebKit perl client lib

 

3

#                             -------------------

 

4

#    begin                : 06-19-2010

 

5

#    copyright            : (C) 2010 by Chris Burel

 

6

#    email                : chrisburel@gmail.com

 

7

# ***************************************************************************

 

8

 

 

9

#***************************************************************************

 

10

# *                                                                         *

 

11

# *   This program is free software; you can redistribute it and/or modify  *

 

12

# *   it under the terms of the GNU General Public License as published by  *

 

13

# *   the Free Software Foundation; either version 2 of the License, or     *

 

14

# *   (at your option) any later version.                                   *

 

15

# *                                                                         *

 

16

# ***************************************************************************

 

17

 

 

18

package QtWebKit4::_internal;

 

19

 

 

20

use strict;

 

21

use warnings;

 

22

use QtCore4;

 

23

use base qw(Qt::_internal);

 

24

 

 

25

sub init {

 

26

    foreach my $c ( @{getClassList()} ) {

 

27

        QtWebKit4::_internal->init_class($c);

 

28

    }

 

29

    foreach my $e ( @{getEnumList()} ) {

 

30

        QtWebKit4::_internal->init_enum($e);

 

31

    }

 

32

}

 

33

 

 

34

sub normalize_classname {

 

35

    my ( $self, $cxxClassName ) = @_;

 

36

    $cxxClassName = $self->SUPER::normalize_classname( $cxxClassName );

 

37

    return $cxxClassName;

 

38

}

 

39

 

 

40

package QtWebKit4;

 

41

 

 

42

use strict;

 

43

use warnings;

 

44

use QtCore4;

 

45

 

 

46

require XSLoader;

 

47

 

 

48

our $VERSION = '0.01';

 

49

 

 

50

XSLoader::load('QtWebKit4', $VERSION);

 

51

 

 

52

QtWebKit4::_internal::init();

 

53

 

 

54

1;

 

55

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1