#!/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);