File: Common.pm

package info (click to toggle)
shutter 0.99.6-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 8,880 kB
  • sloc: perl: 19,514; sh: 204; makefile: 52; xml: 40
file content (26 lines) | stat: -rw-r--r-- 546 bytes parent folder | download 
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
 
package Test::Common;

use 5.010;
use strict;
use warnings;
use English;

use Shutter::App::Common;

sub get_common_object {
    my $root     = $ENV{TEST_APP_SHUTTER_PATH} or die "env TEST_APP_SHUTTER_PATH has to be set";
    my $name     = "shutter";
    my $version  = 0.544;
    my $revision = 1234;

    return Shutter::App::Common->new(
        shutter_root => $root,
        main_window  => undef,
        appname      => $name,
        version      => $version,
        rev          => $revision,
        pid          => $PID
    );
}

1;