#!/usr/bin/perl
use strict;
use warnings;
use GStreamer -init;
# $Id$
# create
my $pipeline = GStreamer::Pipeline -> new("my_pipeline");
my $bin = GStreamer::Pipeline -> new("my_bin");
my ($source, $sink) =
GStreamer::ElementFactory -> make(fakesrc => "source",
fakesink => "sink");
# set up pipeline
$bin -> add($source, $sink);
$pipeline -> add($bin);
$source -> link($sink);