File Coverage

xsi/algorithm/MinimumDiameter.xsi
Criterion Covered Total %
statement 20 21 95.2
branch 27 86 31.4
condition n/a
subroutine n/a
pod n/a
total 47 107 43.9


line stmt bran cond sub pod time code
1             MODULE = Geo::Geos PACKAGE = Geo::Geos::Algorithm::MinimumDiameter
2             PROTOTYPES: DISABLE
3              
4             MinimumDiameter* new(SV*, Geometry& g, SV* hint = NULL) {
5 4           if (!hint) {
6 2 100         bool convex = SvTRUE(hint);
7 1 50         RETVAL = new MinimumDiameter(&g, convex);
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
    0          
8 1 50         }
    50          
9             else RETVAL = new MinimumDiameter(&g);
10 1 50         }
    50          
11              
12             Sv getMinimumRectangle(Object obj) {
13             Geometry* r;
14 3 50         if (obj.stash().name() == "Geo::Geos::Algorithm::MinimumDiameter") {
    50          
    100          
15 2 50         auto& self = xs::in(obj);
16 2 50         r = self.getMinimumRectangle();
17             }
18             else {
19 1 50         auto& g = xs::in(obj);
20 1 50         r = MinimumDiameter::getMinimumRectangle(&g);
21             }
22 3 50         RETVAL = Helper::uplift(r);
23             }
24              
25             Sv getMinimumDiameter(Geometry& g) {
26 1 50         RETVAL = Helper::uplift(MinimumDiameter::getMinimumDiameter(&g));
    50          
27             }
28              
29 1 50         double MinimumDiameter::getLength()
30              
31             Coordinate* MinimumDiameter::getWidthCoordinate() {
32 2           RETVAL = new Coordinate(* (THIS->getWidthCoordinate()));
33 1 50         }
    50          
34              
35             LineString* MinimumDiameter::getSupportingSegment () {
36 2           RETVAL = dyn_cast(THIS->getSupportingSegment());
37 1 50         }
    50          
38              
39             LineString* MinimumDiameter::getDiameter () {
40 4           RETVAL = dyn_cast(THIS->getDiameter());
41 2 50         }
    50          
42              
43              
44 0           int CLONE_SKIP (...) { PERL_UNUSED_VAR(items); RETVAL = 1; }
45              
46             BOOT {
47 46 50         xs::exp::autoexport(Stash(__PACKAGE__));
    50          
48             }